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Questo libro si rivolge a chi desidera conoscere il Pascal 
ed apprenderne l'uso in modo semplice e piano: 
e' quindi adatto anche a chi e' alle prime armi 
nel campo dell'informatica. 

Il libro e' corredato da due programmi per tradurre 
le istruzioni Pascal in Basic; questo consente al lettore 
di provare direttamente programmi in Pascal sul suo 
personal computer senza dover affrontare la spesa 
di un vero compilatore Pascal. 

Il primo traduttore e' scritto in Basic Microsoft, 
quindi e' adatto a quasi tutti i personal computerà 
come IBM, OLIVETTI, H.P., ... 

Il secondo e' scritto in Basic Sinclair Per home computers 
della serie ZX SPECTRUM. 
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CAPITOLO PRIMO 


introduzione: al pascal 


La scelta di un linguaggio di programmazione e' spesso fonte di 
indecisione : una volta che si e' scelto il linguaggio (ad 
esempio il Pascal), un ulteriore problema e' come imparare il 
linguaggio adottato. Questo libro intende per l'appunto essere 
di utilità' per due scopi : vi potrà' aiutare a decidere se il 
Pascal e' un linguaggio adatto ai vostri scopi, e, supposto che 
decidiate per il si', vi insegnerà’ a programmare in Pascal. 

Per un uso efficace del libro dovete avere un calcolatore su 
cui giri o lo pseudo-compilatore Pascal riportato alla fine di 
questo libro, o un compilatore Pascal di tipo commerciale. Nel 
primo caso si avra’ la limitazione di dover usare un 
sottoinsieme limitato dei comandi. 

Il libro e' quindi diviso in due parti: la prima parte si 
riferisce ad entrambi i gruppi di lettori, mentre la seconda si 
riferisce a quelle caratteristiche del Pascal non presenti nello 
pseudo-compilatore, quindi può' essere utile solo a chi possiede 
un "vero" compilatore Pascal . Quando arriverete alla seconda 
parte, sarete già' in grado di decidere se per voi e' 
preferibile procurarvi una versione commerciale di Pascal per il 
vostro calcolatore se non ne avete già' una. Quindi, se trovate 
che non vi piace programmare in Pascal, non avrete speso dei 
soldi per un compilatore Pascal solo per provarlo. 

volendo utilizzare questo libro con il mio compilatore (vedi 
appendice) dovete prima leggerne la descrizione: nell' appendice 
e' spiegato quale dei compilatori allegati dovete usare e come 
questi lavorano. Nella prima parte del libro ogni commento che 
si riferisce esclusivamente al mio compilatore e' racchiuso fra 
parentesi quadre. 

Se usate dei compilatori commerciali, e' difficile dare 
indicazioni precise su come usarli, poiché' questi operano in 
modo diverso l’uno dall'altro: il manuale che accompagna ciascun 
compilatore potrà' comunque darvi le necessarie informazioni. Un 
problema dei compilatori commerciali e' che gli autori tendono a 
estendere il Pascal quando lo realizzano. Queste estensioni si 
presentano sotto forma di nuovi comandi e "migliori" modi di 
fare le cose: nella maggior parte dei casi queste estensioni non 
interferiranno con il Pascal standard su cui si basa questo 
libro; alcune estensioni sono abbastanza comuni: queste sono 
menzionate nel libro in relazione ai relativi argomenti. 

La sequenza con cui normalmente si scrive e si esegue un 
programma Pascal e' pressappoco la seguente : 

li II programma deve essere battuto sul calcolatore . I 
compilatori Pascal molto raramente forniscono un mezzo per fare 
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ciò'; spesso dovete comprare un ulteriore programma chiamato 
"Editore" (in inglese "Editor") per questo scopo. Un Editor e' 
un programma di tipo generale che consente di creare testi dalla 
tastiera (possono essere indifferentemente lettere a vostra zia 
o programmi Pascal), correggerli ed infine salvarli su disco. Le 
funzioni per effettuare correzioni sono normalmente piuttosto 
sofisticate: ad esempio permettono di spostare interi blocchi di 
testo o di ricercare specifiche parole in una frazione di 
secondo. Un tipico Editor (per calcolatori che usano il sistema 
operativo CP/M) e' il UordMaster. 

S) Dovete dire al compilatore di compilare il programma: ciò' 
spesso si fa lasciando r* ambiente dell' Editor e chiamando il 
compilatore direttamente da tastiera: il compilatore allora 
prende il vostro programma Pascal da disco e lo converte in un 
codice interno che viene anch’ esso salvato su disco. 

3) Il programma compilato può' quindi essere eseguito battendo 
qualche altro cornando da tastiera. 

Ciò' che non e' immediatamente ovvio da quanto detto sopra e' 
che se fate un errore nel programma Pascal dovete ritornare all' 
Editor per correggere I' errore e ripetere di nuovo 1' intera 
procedura; questo fa perdere molto tempo in confronto allo 
scrivere e al correggere programmi in Basic. L'unico modo per 
aggirare il problema e' essere sicuri che i vostri programmi non 
contengano errori ! 


Il Pascal e' stato fatto in questo modo perche’ nel 1969/70 i 
calcolatori erano cosi’ costosi che l'unico modo ragionevole di 
scrivere i programmi era quello di scriverli e verificarli sulla 
carta prima di introdurli nel calcolatore. Che il Pascal abbia 
potuto sopravvivere malgrado questo laborioso sistema di 
introduzione dei programmi e' una testimonianza, della sua 
eleganza e utilità' . 

Tutti i programmi in Pascal, siano semplici o complessi, hanno 
lo stesso formato generale: 

PROGRAM ESEMP10(1NPUT,OUTPUT); 


BEGIN 


END. 


Il primo gruppo di trattini, rappresenta la sezione di 
inizializzazione del programma, che dice al calcolatore ciò' che 
gli serve sapere per cominciare effettivamente a far girare il 
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programma, le cui istruzioni compaiono nel secondo gruppo di 
trattini. 

Le parole stampate in grassetto sono chiamate "parole 
riservate". Sono riservate per scopi speciali e 1' utente non 
può' utilizzarle per nessun altro scopo. La maggior parte delle 
altre parole che appaiono nei programmi Pascal sono chiamate 
"identificatori" . 

La linea; 

PROGRAM ESEMPIO(INPUT,OUTPUT) ; 

Si chiama "intestazione del programma" : fornisce al calcolatore 
varie informazioni preliminari che gli sono necessarie prima che 
Possa iniziare il programma (ad esempio il nome del programma 
stesso). Nel caso riportato sopra, il nome del programma e' 
"ESEMPIO". Potete dare ai vostri programmi in Pascal qualunque 
nome vi piaccia a condizione che questo nome: 

a) non sia una parola, riservata ‘(queste variano da un 
compilatore all' altro, quindi controllate il vostro manuale per 
avere una lista completa delle parole da evitare). 

b) inizi con una lettera 

c) i caratteri seguenti siano una combinazione di lettere o 
numeri. 


E‘ una buona idea chiamare un programma con lo stesso nome che 
userete come nome del file quando lo salverete sul floppy disk. 

Il nome del programma e' un esempio di identificatore, anche se 
al calcolatore non importa come chiamate un programma; e' 
sensato usare nomi che danno un' idea di cosa fa il programma. 
Questi sono alcuni esempi: 

PROGRAM CALCOLATASSE(INPUT,OUTPUT) ; 

PROGRAM SCACCHI(INPUT.OUTPUT> ; 

PROGRAM TRQVARADICEQUADRATA(INPUT,OUTPUT); 

Poiché' uno spazio bianco non e' una lettera dell'alfabeto il 
nome del programma non deve contenere caratteri di spaziatura; 
questo pud' dar luogo a nomi di programmi come quelli sopra 
riportati, scomodi da leggere a prima vista. Per questa ragione 
molte versioni del Pascal consentono di utilizzare il carattere 
di sottolineatura (_) negli identificatori. Questo consente di 
scrivere identificatori complessi senza sacrificare la 
leggibilità'. L'ultimo esempio sopra riportato potrebbe essere 
riscritto come; 


PROGRAM TROVA_RADICE_QUADRATA(INPUT,OUTPUT) ; 



Riportiamo ora qualche esempio di intestazione illegale a 
di errori nel formato dell' identificatore: 


causa 


PROGRAM i2TABELLATEMPI(INPUT,OUTPUT); 
(comincia con un numero) 

PROGRAM TOM&JERRYfINPUT,OUTPUT): 
(contiene un carattere non ammesso) 
PROGRAM LEO 2EPPELIN(INPUT,OUTPUT >: 
(contiene uno spazio) 


In teoria non vi sono limitazioni nella lunghezza degli 
identificatori, ma quasi tutte le versioni dei Pascal 
considerano significativi solo i primi otto caratteri di ciascun 
identificatore. Quindi l'identificatore PRQGRAMMA.PAGHE e' 
trattato allo stesso modo di PRQGRAMMA.DISEGNI . 

Nomi lumghi sono di solito scomodi da battere e da ricordare, 
quindi e' preferibile usare versioni abbreviate dei nomi. Per 
esempio e' pìu ' frequente chiamare un programma CQNT.GEN 
Piuttosto che PROGRAMMA.!}I.CONTABIUTA' .GENERALE, 

Dopo il nome viene una coppia di parentesi. Per le finaiita 1 di 
questo libro queste parentesi dovrebbero serpere contenere le 
paróle "INPUT,OUTPUT", 

La fine dell'intestazione dei programma e' indicata con un punto 
e virgola . Il Pascal usa il punto e virgola nello stesso modo 
con cui noi usiamo il punto in italiano, cioè' per indicare la 
fine di un comando o di una frase. Per l'uso del punto e virgola 
nei programmi Pascal vi sono regole molto precise che verranno 
spiegate in seguito. 

Ritornando al nostro esempio iniziale ricorderete che c’erano 
due blocchi di trattini: il primo viene chiamato "sezione 
dichiarativa", il secondo "corpo del programma”. 


La sezione dichiarativa da' al calcolatore 
preliminari necessarie per poter eseguire 
esempio bisogna indicare in questa sezione i 
variabili di un programma. 

Il corpo del programma contiene le istruzion 
il programma stesso. 

Possiamo ora esaminare un programma Pascal, 
introdurre nel vostro calcolatore. [Nel mio 
omettere sempre la prima linea del programma 
richiede l'intestazione]. 


alcune informazioni 
il programma: per 
nomi di tutte le 

i eh 0 c Q£il i tu i se ori o 

che potreste voler 
compilatore dovete 
Poiché' esso non 


PROGRAM SALUTA(INPUT,OUTPUT): 

BEGIN 

URITE ('HELLO') 
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Si noti che questo programma non include la parte dichiarativa. 

Il corpo del programma e' latto di una sola istruzione; WRITE 
('HELLO') . 

Tutte le istruzioni nel corpo di un programma Pascal contengono 
una coppia di parentesi in cui sono contenuti i dati su cui 
l'istruzione dovrà' operare. In qualche raro caso l'istruzione 
non deve operare su dati e quindi le parentesi vengono omesse. 

Nel caso dell'istruzione URITE, il contenuto delle parentesi e' 
stampato sullo schermo televisivo. Il modo con cui questo 
avviene dipende da questi dati. Tutti i caratteri chiusi fra 
apici (') saranno semplicemente stampati sullo schermo cosi' 
come sono; cosi' nell'esempio suddetto l'istruzione URITE scrive 
la parola "HELLO'' nello schermo. E’ importante notare che gli 
apici stessi non sono stampati, poiché' sono usati per 
delimitare la stringa di caratteri e non fanno parte di essa, 
volendo includere il simbolo di apice in un comando di URITE 
bisogna quindi usare le virgolette ("). 

Avrete notato che la. parola URITE non e’ una parola riservata 
(non e'in grassetto) , diversamente dalla. PRINT del Basic a cui 
equivale. La ragione di ciò' verrà' chiarita nell'ultima parte 
del libro, ma. per il momento tutto ciò' che dovete sapere e' che 
URITE e' un identificatore standard. 

Una volta che voi abbiate il programma fatto e funzionante 
potreste volerlo modificare per stampare testi differenti. 

Il seguente programma amplia alcuni dei concetti pecedenti; 

PROGRAM CIRCONFERENZA(INPUT,OUTPUT> 

CONST PI=3.1415325: 

VAR RAGGIO,CERCHIO:REAL: 

BEGIN { blocco del programma, principale > 

URITE ('INTRODURRE IL RAGGIO DEL CERCHIO' >; 

READLN (RAGGIO) 

CERCHIO:=RAGGI0*2*PI; 

URITELN ('CIRCONFERENZA = ',CERCHIO) 

END. 


Le linee vuote hanno lo scopo di rendere il programma piu' 
leggibile evidenziando le suddivisioni fra sezioni differenti. 
Possono essere omesse quando introducete il programma, poiché' 
non influiscono sul suo comportamento, ma non e' ragionevole 
sacrificare la leggibilità' dei vostri programmi per risparmiare 
qualche battuta. 
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La sezione dichiarativa del programma precedente e' fatta di due 
parti: la dichiarazione CONST e la dichiarazione VAR . La 
sezione dichiarativa "CONST" crea un identificatore chiamato PI 
con.ii "valore" 3.1415926; questo identificatore di costante 
può 1 quindi essere usato in sostituzione di qualunque numero nei 
successivi calcoli. La dichiarazione di costante e' formata 
dalla, parola CONST seguita da un identificatore, dal segno di 
uguale e dal valore dell'identificatore. Il termine di ciascuna 
dichiarazione e' indicato da un altro punto e virgola. Se questo 
punto e virgola e' seguito da un altro identificatore, viene 
creata un' altra costante, altrimenti e' seguito da una parola 
riservata (VAR in questo caso), su cui si opera come richiesto. 
Ciò' sembra un po' complicato ma. vedrete che ha un senso quando 

10 userete. 

La sezione VAR ha una sintassi analoga, ma si possono dichiarare 
allo stesso tempo piu’identificatori separandoli con virgole. La 
maggior parte degli altri programmi che vedrete illustra ciò'. 
Gli identificatori dichiarati con la sezione VAR sono variabili 
anziché' costanti. Le variabili sono identificatori che possono 
avere valori ad essi assegnati durante il corso di un programma. 
Esse possono anche essere trattate come le costanti in quanto 
possono apparire nei calcoli. Le memorie delle calcolatrici 
tascabili si comportano in un certo senso come delle variabili. 

La. differenza tra variabili e costanti consiste nel fatto che il 
valore assegnato a una costante non può' cambiare nel programma 
mentre.le variabili possono essere modificate quando si vuole. 

Vi sono alcune buone ragioni per usare le costanti nei 
programmi invece che normali variabili, quando ciò' e' possi¬ 
bile. Se scrivete un programma per fare qualche calcolo 
complesso e quindi lo stampate , volete essere sicuri che i 
risultati non vengano stampati sulle perforazioni che separano i 
fogli di carta della stampante. Potreste quindi fare in modo che 

11 programma stampi un numero di linee bianche quando la 
stampante e' vicina al fondo del foglio per spostarvi all'inizio 
del foglio successivo. In questo caso e' bene dichiarare una 
costante chiamandola "PAGESIZE" (dimensione pagina) con un 
valore uguale a 66 (che e' il normale numero di linee per pagina 
), in modo che se dovesse cambiare il formato della carta sia 
sufficiente modificare solo la sezione di dichiarazione delle 
costanti senza andare attraverso tutto il programma cercando i 
numeri corrispondenti alle linee per pagina. In parole povere le 
costanti possono rendere i programmi piu' facilmente 
manutenibi1i. Un altro motivo può' essere una miglior 
leggibilità': piuttosto che veder spuntar fuori nel vostro 
programma un 3.1415926, e' piu' sensato usare una costante 
chiamandola PI. 

BEGIN indica l'inizio del programma principale. 

La prima linea del programma principale e' un comando di URITE. 
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Nell' esempio questa istruzione avverte l'utente che nel 
programma deve essere introdotto il raggio del cerchio. 

Il comando READLN nella riga successiva riceve un numero dalla 
tastiera e lo memorizza come variabile RAGGIO. Da questo punto 
in poi la variabile RAGGIO può' essere trattata esattamente come 
un numero e quando apparirà' in un calcolo l'elaboratore 
utilizzerà’ il valore immesso. L'unico modo per cambiare il 
numero memorizzato come RAGGIO e' di usare l'identificatore in 
un altro comando READ, o assegnare un valore differente ad esso 
in un comando di assegnazione. 

Il comando successivo e' un comando di assegnazione: questo e' 
indicato dalla presenza della coppia di simboli := . Quando il 
calcolatore incontra questo comando elabora il valore alla 
destra di questo simbolo e lo assegna alla variabile alla 
sinistra del simbolo stesso. 

Ciò' che si trova alla destra del simbolo := e' chiamato 
espressione. Una espressione nel Pascal può' essere una 
costante, una variabile, o una combinazione di entrambe 

col legate per mezzo di operatori. Gli operatori sono i segni di 
addizione, sottrazione, moltiplicazione, divisione. Nell'esempio 
e' usato solo 1' operatore di moltiplicazione C # : . Il 

risultato dell'espressione e' la circonferenza di un cerchio di 
raggio RAGGIO. Quindi, secondo il concetto sopra espresso di 
usare identificatori con nomi descrittivi, il risultato e' 
memorizzato nella variabile CERCHIO. 

Vi sono alcune differenze fra l'aritmetica del Pascal e la 
matematica delle calcolatrici tascabili. Innanzitutto il Pascal 
usa dei simboli particolari per alcune operazioni; si usa 

1' asterisco per indicare la moltiplicazione (come detto sopra) 
e si usa la barra ! / ) per la divisione; i segni + e - sono 
usati nel modo normale. La seconda differenza e' nel modo in cui 
le espressioni sono effettivamente calcolate. In alcune 
calcolatrici battendo 2+2*8 i calcoli vengono eseguiti 

nell'ordine con cui sono battuti gli operatori e quindi si ha 
come risultato 32. Questa espressione nel Pascal da' come 
risultato 18 ; questo perche'il Pascal esegue le moltiplicazioni 
e le divisioni prima di fare le addizioni e le sottrazioni, ciò' 
secondo le corrette regole matematiche. Quindi in questo 

esempio il Pascal calcola 2*8, e quindi somma 2 . Volendo 

modificare l'ordine con cui l'espressione e' calcolata si 
possono utilizzare coppie di parentesi : 1' espressione (2+2)*8 
da' in Pascal come risultato 32 . 


(Diversamente dal Basic il valore di una variabile prima che 
compaia in una READLN o in un comando di assegnazione e' 
imprevedibile: quindi tutte le variabili devono essere 
attentamente inizializzate prima che appaiano in un comando di 
READ o alla destra di un comando di assegnazione). 
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Il comando di assegnazione in Pascal e' un po' differente da 
quello Basic. In Basic solitamente si scrive "A=23",omettendo la 
parola LET. Potreste meravigliarvi che in Pascal si usi il 
simbolo " : " prima del segno " = " , La verità' e' che chi ha 
inventato il Pascal era un purista ed un ottimista. Era un 
purista, poiché' aveva notato che il segno " = " usato in questo 
contesto non era corretto: una linea come "T=T+i" , come 
apparirebbe in BASIC, potrebbe generare confusione nei 
principianti, perche' T non e',e non potrà' mai essere, uguale a 
T+i. Percio'egli intendeva aiutare i principianti indicando con 
segni diversi i due concetti diversi di "uguale" e di "metti 
nella variabile" . Ciò' era molto ottimistico da parte sua, 
perche' non aveva capito che quasi tutti imparano a programmare 
in calcolatori che funzionano in Basic. 

L' ultima linea nel programma principale e' un nuovo tipo di 
comando di output (uscita), il comando WRITELN. La differenza 
tra URITELN e URITE e' che WRITELN salta alla riga successiva 
dopo che ha effettuato 1'operazione di scrittura. 

Il comando 

URITELN: 

fa saltare alla riga successiva per il successivo comando di 
output, cioè' se il precedente comando di output era un URITE ci 
si sposta alla riga successiva, se era un URITELN si stampa una 
riga bianca: pud' quindi essere usato per aumentare la 
spaziatura fra le righe per migliorare la leggibilità'. 

[Nel mio compilatore dovete usare " WRITELN (' '); ” che 
semplicemente stampa uno spazio e quindi passa alla riga 
successiva. Per questo motivo, quando e' il caso' userò' sempre 
questa forma nella prima parte del libro]. 

Il comando URITELN nel programma dimostra che e' anche possibile 
stampare numeri . Quando trova che c'e' come output un 
identificatore, il comando non stampa la parola (ad esempio 
RAGGIO), ma tira fuori il valore corrente della variabile RAGGIO 
e lo stampa. Quando vi sono due dati da stampare essi devono 
essere separati da virgole nel comando URITELN. 

La parola riservata " END. " indica la fine del comando WRITELN, 
quindi non e' necessario il punto e virgola. Indica anche la 
fine del programma, come abbiamo visto prima. 

Le parole racchiuse in parentesi graffe dopo la parola riservata 
8EGIN sono commenti. Come tali sono ignorati dal calcolatore, ma 
possono essere utili al programmatore per chiarire il programma 
ad altri che lo leggano, o come promemoria per se stesso. I 
programmi piu' complicati in questo libro sono molto ben 
commentati, poiché' e' importante che li capiate. [ Il mio 
compilatore non gestisce commenti ] . Se il vostro calcolatore 
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per 


non ha parentesi graffe sulla tastiera, potete usare " «# " 
iniziare un commento e " #) " chiusa per terminarlo. Pero 
{ INIZIO PROGRAMMA #> non e' un commento valido. 

Siamo ora in grado di allargare la descrizione del formato 
generale di un programma Pascali il nuovo programma e' del tipo: 


PROGRAM NQMEPROG( I NPUT,OUTPUT) 
CONST 


VAR 

BEGIN 


END. 

Se scorrete questo libro potete notare che tutti i programmi 
comprendono alcune o tutte queste parole caratteristiche: si 
noti che le sezioni UAR e CONST che appaiono nello schema in 
qualche programma potrebbero mancare, ma BEGIN e END, sono 
sempre necessari. 

Ho inserito dei caratteri di spaziatura aggiuntivi all' inizio 
di alcune linee del programma: questi spazi bianchi fanno 
rientrare la scrittura per meglio evidenziare ciascuna sezione. 
Man mano che il formato generale dei programmi diventerà' piu' 
complesso, vi renderete conto dell'importanza delle rientranze. 
Alcvni tipi di Basic effettuano delle rientranze nei comandi 
FDR-NEXT con la stessa finalità'. 

Il seguente programma illustra altri aspetti del Pascal: 

PROGRAM PAGHE(INPUT,OUTPUT > 

CONST 
PAGA=3.5; 

VAR 

ORE:REAI; 

GIORNI:REAL; 

BEGIN 

URITE ('DARE ORE LAVORATE PER GIORNO E NUMERO GIORNI'); 

READLN (ORE,GIORNI); 

URITE ('PAGA TOTALE = 'PAGAIOREIGIORNI); 

END. 
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Questo esempio ha il difetto di essere ovvio, ma illustra alcuni 
punti importanti. Nella sezione WAR e' mostrato il concetto di 
vere piu' di una dichiarazione. Il comando READLN in questo 
aso ha due argomenti: come potete vedere se si deve introdurre 
piu' di una variabile i diversi nomi delle variabili sono 
separati da virgole. Lo stesso vale per quasi tutti i comandi 
Pascal che possono avere piu' di un argomento. 
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CAPITOLO SECUNDO 

SEMPLICI TIRI DI PATI E COMANDO _IJF 


La parola REAL e' stata usata in una sezione dichiarativa VAR 
nell' ultimo capitolo senza spiegazioni. 

Quattro differenti parole.possono occupare il posto di REAL 
nella sezione VAR, Ciascuna parola conferisce differenti 
caratteristiche alla variabile cosi’ creata. Ciascuno dei 
differenti "tipi" e' qui spiegato con le caratteristiche ad esso 
associate. 

Il tipo REAL 

Una variabile dichiarata di tipo REAL e'definita come un numero 
reale, cioè'come un numero che può' includere un punto decimale. 

Numeri come 2,5 o 4.o sono reali. I numeri reali possono essere 
sommati, sottratti, moltiplicati e divisi secondo le regole 
dell' ultimo capitolo. 

I numeri reali sono i piu' simili al tipo di numeri a cui siamo 
abituati nella vita di tutti i giorni. Comunque il Pascal e' 
stato progettato soprattutto per essere usato come un 
linguaggio scientifico ed educativo, quindi usa un formato per 
certi numeri reali che sembrerà' estraneo alla maggior parte dei 
lettori. Questo formato e' conosciuto come notazione 
"scientifica" o "esponenziale". 

I numeri scritti nell'annotazione esponenziale sono composti di 
due parti: la mantissa e l'esponente. Queste due parti sono 
separate dalla lettera ' E '. Perciò' la forma di un numero 
esponenziale e' <mantissa> E <esponente>. La mantissa e' un 
normale numero compreso fra 1 e 10. Se il numero ha meno di 10 
cifre, e' riempito con zeri (cioè' 2.3 diventerà' 2.300000000 ), 
Quando un numero in formato esponenziale e’ digitato in un 
calcolatore questi zeri possono essere omessi. 

La mantissa e' seguita dalla lettera E e quindi dall' esponente, 
L' esponente e' la potenza di 10 per cui deve essere 
moltiplicata la mantissa per dare il numero in questione. Per 
esempio 2.300000000E4 e' 2.3 per 10 elevato alla quarta . rins' 
23000. 

Voi non siete costretti a introdurre i numeri in questo formato, 
ma il Pascal in mancanza di diverse indicazioni stampa i numeri 
in questo modo: questo non e' sempre molto comodo. Tuttavia e' 
data la possibilità' di controllare il formato di stampa a 
seconda delle necessita’ dell' utente: un numero reale in un 
comando di URITE o URITELN pud' essere seguito da due numeri (o 
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variabili) che danno la posizione e la larghezza del campo entro 
cui stampare il numero con le sue cifre decimali, Per esempio 
URITELN (PI:S0:6> stampa PI (supposto che il suo valore sia 
stato precedentemente definito) appoggiato a destra (cioè' senza 
spazi in coda) in modo tale che la distanza dell'ultima cifra 
del numero dal lato sinistro del foglio o dello schermo sia di 
20 caratteri. La stampa e' limitata a 6 cifre decimali . 

Questa possibilità' e' utile nelle applicazioni in cui un utente 
voglia usare il calcolatore senza troppe sofisticazioni; 
altrimenti il calcolatore stamperebbe una soluzione 
esageratamente precisa di un problema (ad esempio un tasso di 
conversione dollaro/lira di 1.573042379E3 ) . 

[Questa possibilità' non e' prevista dal mio compilatore. In 
generale e' piu' sicuro omettere simboli di formattazione in 
un comando di URITE 1. 

L'aritmetica fra numeri reali non e' sempre esatta; supponendo 
che il calcolatore visualizzi solo 10 cifre, dara' come 
risultato di 123456769+0.000000000001 il numero 123456789, che 
e' solo approssimativamente giusto. 

Il tipo INTEGER 

Le variabili intere sono come le variabili reali nel senso che 
rappresentano dei numeri; tuttavia le variabili intere possono 
solo rappresentare numeri che non contengano un punto decimale. 
Quindi ogni variabile intera può' essere rappresentata come una 
variabile reale contenente solo zeri dopo il punto. Questi 
esempi danno un'idea piu' chiara delle differenze: 

NUMERI REALI 

2346.34574568+E89 

-23.4 

-3.0 

4.2345 

-2.235 

NUMERI INTERI 

32146 

-23 

23 

643 


Poiché' tutti gli interi sono esprimibili come reali si potrebbe 
essere perplessi sul fatto che il Pascal preveda anche gli 
interi: le ragioni di ciò' sono due, velocita' e precisione. 

La maggior velocita' che danno gli interi deriva dal fatto che 
questi possono essere memorizzati internamente al calcolatore in 
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due parti separate, mentre un numero reale può' richiedere fino 
a sei parti: e' piu' veloce per il calcolatre manipolare due 
parti piuttosto che sei e ciò' rende l'aritmetica intera piu' 
veloce. 

Il motivo per cui le variabili reali possono essere imprecise e' 
dovuto al fatto che certe frazioni non possono essere espresse 
in forma binaria nello stesso modo in cui 1/3 non pud' essere 
convertito in un numero decimale senza perdere di precisione. 

Nella pratica Vi consiglio di usare numeri interi,quando 
possibile, in quanto richiedono meno battitura! 

Le regole per l'aritmetica intera sono un po' diverse da quelle 
dell' aritmetica reale. I quattro simboli sono usati nello 
stesso modo, salvo che l'operatore di divisione (/> da' un 
risultato reale anziché' intero. Per ottenere un risultato reale, 
in una divisione e' necessario utilizzare gli operatori DIV e 
MOD: " X DIV Y " da' la parte intera di X diviso per Y e " X MOD 
Y " da' il resto di X diviso per Y. 

Il campo di variabilità' degli interi e' limitato. Il maggior 
intero che il Pascal può' gestire e' dato dalla costante MAXINT. 
Questa e' presente in tutti i compilatori Pascal [eccetto il 
mio! Il piu' piccolo intero che può' essere rappresentato e' 
dato da -MAXINT. Il valore tipico di MAXINT e'32767. Questo 
campo di variabilità' e' estremamente limitato in confronto alle 
variabili reali, ma molti programmi non scientifici possono 
limitarsi a variabili comprese in questo campo(molti compilatori 
hanno anche un'estensione degli interi standard detta "interi 
lunghi" (LONG INTEGERS) con un campo di variabilità' maggiore, 
ma ovviamente vengono trattati in modo piu' lento e richiedono 
piu' memoria. E' opportuno che ricerchiate nel manuale Pascal 
del vostro calcolatore maggiori informazioni su questa 
estensione. 

Le variabili intere sono dichiarate nello stesso modo delle 
variabili reali, salvo che la parola INTEGER e' sostituita dalla 
parola REAL nella dichiarazione VAR. 

Gli interi nei comandi di URITE possono essere formattati come 
le variabili REAL, salvo il fatto che non e’ possibile 
specificare il numero delle cifre decimali in stampa, in quanto 
negli interi non c'e' il punto decimale. E' possibile 
specificare la larghezza del campo: questo basta a garantire che 
la stampa sia ordinata e pulita. 


Il tipo CHAR 

Le variabili di tipo CHAR sono un po' differenti dalle variabili 
reali ed intere, poiché' non contengono un numero ma una singola 
lettera o simbolo. Il seguente programma fornisce un esempio di 
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impiego di variabile CHAR: 


PROGRAM PROVA « INPUT,OUTPUT); 

VAR 

A,B,C:CHAR; 

BEGIN 

URITE «'DARE 3 LETTERE'); 
READLN (A,B,C); 

URITE (C,B,A) 

END. 


Questo programma vi permette di introdurre tre lettere e quindi 
le stampa in ordine inverso. 

Non dovrebbe essere difficile comprendere questo programma. Il 
comando READLN agisce in modo un po' differente se applicato a 
variabili di tipo CHAR piuttosto che a variabili numeriche. 

READLN con argomenti di tipo CHAR resta in attesa dell' 
introduzione di tutti i caratteri uno dopo l'altro (senza dare R 
ETURN) . Perciò' nel programma precedente e' possibile 
introdurre tutte le vostre lettere senza separarle con dei 
"RETURN". Il mio compilatore comunque sostituisce READLN con 
INPUT ed usa variabili di stringa al posto di variabili CHAR, 
quindi il programma precedente richiederebbe dei RETURN tra 
ciascun carattere. In realta' il comando READLN assomiglia al 
comando INPUT del Basic solo quando 1' argomento del comando e' 
numerico. Quando 1' argomento e' di tipo CHaR, assomiglia piu' 
ai comandi INKEYS o GET del Basic. 

Ciò' potrebbe sembrare uno svantaggio del mio compilatore, ma 
poiché' le possibilità' di elaborare caratteri nel PASCAL sono 
molto limitate in confronto al BASIC, non vi sono molti 
programmi nella prima parte del libro che riguardano le 
variabili di tipo CHAR . 

[La versione del compilatore relativa allo ZX SPECTRUM ammette 
solo nomi di un unico carattere per le .variabili di tipo CHAR ; 
i programmi in questo libro useranno normalmente nomi piu' 
lunghi, quindi gli utenti dello SPECTRUM dovranno cambiare il 
nome di tutte le variabili di tipo CHAR]. 

Il tipo BOOLEANO 

Questo ultimo tipo di variabile e' anche piu' limitato nel 
numero di valori differenti che può' assumere rispetto ai tipi 
descritti sopra. Le variabili reali possono avere molti milioni 
di valori, le variabili intere alcune migliaia e le variabili di 
tipo CHAR alcune centinaia; le variabili booleane possono avere 
solo due valori differenti! 

I due valori sono VERO (TRUE) e FALSO (FALSE). Vi sono quattro 
operatori che si possono applicare alle variabili booleane, AND, 
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questi 


OR. EOR (indicato talora con EXOR) e MOT. I risultati di 
operatori sono indicati nella seguente tabella; 


TRUE 

AND 

TRUE 

= 

TRUE 

TRUE 

AND 

FALSE 

S 

FALSE 

FALSE 

AND 

TRUE 

= 

FALSE 

FALSE 

AND 

FALSE 

2 

FALSE 

TRUE 

OR 

TRUE 

= 

TRUE 

TRUE 

OR 

FALSE 

= 

TRUE 

FALSE 

OR 

TRUE 

= 

TRUE 

FALSE 

OR 

FALSE 

= 

FALSE 

TRUE 

EOR 

TRUE 

= 

FALSE 

TRUE 

EOR 

FALSE 

= 

TRUE 

FALSE 

EOR 

TRUE 

= 

TRUE 

FALSE 

EOR 

FALSE 

— 

FALSE 


NOT 

TRUE 


FALSE 


NOT 

FALSE 

= 

TRUE 


Questo significa che un'espressione come "AFFAMATO AND POVERO" 
e’ valida. Le possibilità' che danno questi tipi di operatori 
risulterà' evidente dopo la descrizione del comando IF. 

Le variabili booleane sono dichiarate e assegnate nel modo 
normale; 1' unica eccezione e' che non si devono usare nei 
comandi di READLN o URITE. 

Ricorderete che la sezione CQNST di un programma non specifica 
il tipo di costanti dichiarate. Poiché' vi sono quattro tipi 
differenti di variabili, vi potreste stupire che sia necessario 
dichiarare esplicitamente i tipi di variabili, ma non i tipi di 
costanti. La ragione e' che il calcolatore può' sempre 
determinare il tipo di una costante semplicemente esaminando il 
suo valore (per esempio costanti del tipo CHAR sono scritte fra 
due apici). Poiché' una variabile in una sezione VAR non ha 
un valore, e' necessario dirne prima il tipo al calcolatore. 

La dichiarazione CONST vi permette anche di dichiarare costanti 
di tipo CHAR che hanno piu' di un carattere, 

L'ISTRUZIONE * IF * 

L'istruzione IF modifica la sequenza di un programma in funzione 
dell'esito di certi fatti. Vi sono due forme di istruzione IF : 

IF condizione THEN istruzione 


e: 

IF condizione THEN istruzione i 
ELSE istruzione £ 
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Nel primo caso l'istruzione dopo la parola riservata THEN e' 
eseguita soltanto se una condizione dopo la parola IF e' 
calcolata come variabile booleana VERA. La seconda torma opera 
allo stesso modo salvo che se la condizione e' FALSA, si esegue 
1’istruzione 2. 

Un' espressione booleana può' essere formata di due espressioni 
numeriche o CHAR, unite dai segni di " = " (uguale), " <> 

(diverso), " < " (minore), " > " (maggiore), " >= " (maggiore o 
uguale), " <= " (minore o uguale), " > " (maggiore), " < " 

(minore). 

E' possibile unire due o piu' espressioni in un comando IF 
utilizzando gli operatori AND , OR , EOR . Un altro tipo di 
espressione booleana e' quella formata da variabili booleane 
unite da operatori booleani. 

Normalmente bisognerebbe usare delle parentesi in queste 
condizioni per migliorare la leggibilità' del programma, come si 
vede in alcuni esempi di questo capitolo. 

Se volete usare piu' di un' istruzione in ciascuna parte delle 
strutture, che sopra abbiamo indicato come "istruzione", dovete 
usare una struttura EEGIN-END per racchiudere le istruzioni. 

Gli esempi di programma seguenti illustrano ciò' e gli altri 
aspetti sopra esposti. 

PRQGRAM DEC ISIONEiINPUT,OUTPUT); 

VAR 

A,B:REAL: 

BEGIN 

URITE ('QUAL'E'LA RADICE DI 400 ? '); 

READLN (A)• 

IF A=£0 THEN URITELN ('GIUSTO !') 

ELSE URITELN ('ERRATO'); 

URITE ('QUANTI ANNI HAI ? '); 

READLN (B)J 

IF (B>i6) AND (a<>20) THEN 
BEGIN 

URITELN ('NON SEI MOLTO BRAVO'); 

URITELN ('PER I TUOI ', B, ' ANNI') 

END 

ELSE 

BEGIN 

URITELN ('MOLTO BENE PER \B,' ANNI') 

END 

END. 


[Il mio compilatore non e' molto brillante nel vedere quando 
termina un'istruzione IF e inizia l'istruzione THEN. Se la 
condizione termina con un identificatore, 1' intera condizione 
deve essere racchiusa fra parentesi. Quindi si deve scrivere IF 
(A=B) THEN, invece di IF A=B THEN. 
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Il mio compilatore vuole anche che si usi la costruzione 
BEGIN-END nell'istruzione IF anche quando THEN e' seguito da una 
sola istruzione. Tutti i programmi nella prima parte del libro 
rispettano questa regolai . 

Si noti come non ci sia punto e virgola prima dei comandi END. 


Se vi fosse dato il programma precedente senza nessun punto e 
virgola probabilmente avreste serie difficolta' nell' inserire i 
punti e virgola nella posizione corretta. Vi sono comunque 
alcune semplici regole per il posizionamento dei punti e 
virgo1 a. 

Tutti i compilatori Pascal operano sui programmi da compilare 
esaminando un carattere alla volta. Per esempio il mio 
compilatore richiama in continuazione la routine alla linea 1770 
che fornisce il successivo carattere del programma. Essendo 
questo l'unico contatto che il compilatore ha con il programma, 
non può' sapere nulla dell' esistenza delle interruzioni fra le 
linee se incontra solo un flusso costante di caratteri. Il punte 
e virgola consente al compilatore di stabilire dov ; ’ e' la fine 
delle istruzioni, senza le limitazioni dell' a capo com« n»l 
Basic. 

Il vantaggio di questo approccio e' che e' possibile scrivere 
programmimi dove un'istruzione e' piu' lunga di una singola 
1inea. 


Per essere sicuri che i punti e virgola siano posti nella 
posizione corretta e' necessario definire rigidamente che cosa 
intendiamo per "programma PASCAL". 


Un programma PASCAL consiste di piu' elementi: 


1) la parola PROGRAM 

2) un identificatore (il nome del programma) 

3) una parentesi aperta 

4) le parole 'INPUT,OUTPUT' 

5) una parentesi chiusa 

6) un punto e virgola 

7) un blocco 

8) un punto 



Un blocco e': 

1) una dichiarazione CONST opzionale 

2) una dichiarazione VAR opzionale 

3) la parola BEGIN 

4) una o piu' istruzioni, separate da punti e virgola 

5) la parola END 


Si noti che le istruzioni sono separate da punti e virgola, non 
terminano con questi. Questo e' il motivo per cui non dobbiamo 
porre un punto e virgola prima del comando END finale. 

Un'istruzione può’ essere: 

1) un’ assegnazione 

2) il richiamo di una procedura 

3) la parola Begin seguita da uno o piu' statements separati 
da punti e virgola e terminanti con la parola END. 

4) la parola IF , un’ espressione, la parola THEN , 
un' istruzione, ed eventualmente la parola ELSE e un’ulteriore 
istruzione. 


Vi sono piu' tipi di istruzioni che saranno trattati a tempo 
debito. 

La chiamata ad una procedura e' uno dei comandi URITE, WRITELN 
o READLN. 


Seguendo attentamente le precedenti spiegazioni e facendo 
riferimento all’ esempio fatto dovreste essere in grado di 
comprendere la posizione dei punti e virgola. 

Si noti che un'istruzione può' essere "nulla": ciò' significa 
che non contiene caratteri o contiene solo spazi e commenti. [Il 
mio compilatore non accetta istruzioni nulle] . Essendo previste 
istruzioni nulle diventa possibile scrivere un programma di 
questo tipo: 

PROGRAM VUOTO (INPUT,OUTPUT); 


BEGIN 


! ! ! I ! ! !tII!!I ! » !» ! ! ! I !il! I »! Il IIIlI « » II f fi »,» > ì , J ! t J » , ! ! », , » » > » 


END. 
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che consiste di una serie di istruzioni nulle. Avrete notato che 
questo programma, contrariamente alla regola fondamentale, Ha un 
punto e virgola direttamente prima di un'istruzione END ! 
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CAPITOLO TERZO 

FUNZIONI STANDARD 
E ISTRUZIONE FOR 


Una funzione e’ un processo che in qualche modo cambia un 
numero: ad esempio la funzione "radice quadrata" cambia un 
numero nella sua radice quadrata. In Pascal vi sono molte di 
queste funzioni predefinite e, come potrete vedere, e' facile 
definirne di nuove. 

Le funzioni sono identificate da identificatori predefiniti: ad 
esempio la parola 5QRT significa "square root" (radice 
quadrata). Le funzioni sono sempre seguite da una coppia di 
parentesi che racchiudono l'argomento della funzione, 
analogalmente a quanto si ha nel comando URITE. Diversamente dal 
URITE una funzione può' comparire solo in espressioni. Ciò' 
poiché' tutte le funzioni danno come risultato un valore e se 
una funzione fosse richiamata come parte di un programma allo 
stesso modo dell'istruzione URITE non ci sarebbe modo di 
ritrovare il risultato. Alla fine di questo capitolo vi e' 
qualche semplice esempio di programma contenente delle funzioni. 

In una funzione all' interno delle parentesi vi pud' essere 
qualunque cosa, da un' altra espressione ad un numero. 


Vediamo ora una descrizione completa di tutte le funzioni 
"standard”: qualche compilatore ha altre funzioni in piu', ma 
nessun compilatore dovrebbe averne meno. 

ABS da' il valore assoluto del suo argomento, cioè' il valore 
stesso dell'argomento senza eventuale segno negativo. Quindi il 
valore assoluto di -3 e' 3, come il valore assoluto di 3 e* 
ancora 3. ABS può' avere un argomento di tipo reale o di tipo 
intero e il risultato e' dello stesso tipo dell'argomento. ABS 
si usa essenzialmente in programmi matematici e scientifici; i 
matematici dicono che questa funzione da' il modulo di un 
numero, ma non si deve confondere questo con l'operatore MOD. 

ARCTAN (talora chiamata ATAN o ATN ) da' 1' arco tangente del 
suo argomento: se A e' la tangente di PI in radianti, 
l'istruzione B=ATN(A) pone B uguale a PI. ARCTAN può' avere un 
argomento reale o intero, ma il suo risultato e' sempre reale. 
[Il mio compilatore riconosce solo la forma ATN] 

CHR converte un numero in un carattere;ad ogni carattere che 
il vostro calcolatore può' stampare corrisponde un codice 
numerico (spesso derivato dal codice standard ASCII): la 

funzione CHR vi consente di convertire il codice interno in un 
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carattere. Deve avere un argomento intero ed il risultato e' di 
tipo CHAR. 

COS da' il coseno del suo argomento che può' essere di tipo 
intero o reale; il risultato e' sempre reale. L'argomento deve 
essere in radianti. 

EXP da' la costante "e 1 ' elevata alla potenza data 
dall'argomento di EXP; questa istruzione può' essere pensata 
come 1' antilogaritmo naturale di un numero. L' argomento pud’ 
essere reale o intero, i.l risultato e' sempre reale. 

LN da' il logaritmo naturale o neperiano del suo argomento. L' 
argomento deve essere di tipo reale o intero e il risultato e' 
di tipo reale. 

ODO da' il risultato booleano VERO se i1 suo argomento e' un 
numero dispari, FALSO in caso contrario. L' argomento deve 
essere di tipo intero. Altro modo di usare questa funzione e' 
per sapere se 1'argomento e' divisibile per due o no. 

ORD e' 1' opposto di CHR in quanto converte un carattere nel 
codice interno del calcolatore. Il suo argomento deve essere di 
tipo CHAR ed il suo risultato e' un intero. 

PRED restituisce 1' intero di un’ unita' inferiore al suo 
argomento o il carattere il cui codice e' di un' unita' 
inferiore a quello dell' argomento. [ Il mio compilatore accetta 
solo argomenti interi 1 . PRED e' un' abbreviazione per 

"precedente". Nella maggior parte dei calcolatori si ha PRED 
(’8')='A', ma e‘ bene evidenziare ciò' nella documentazione del 
vostro programma. 

ROUND restituisce 1' intero piu' vicino ad un argomento reale, 

SIN restituisce il seno del suo argomento (che deve essere in 
radianti) di tipo reale od intero. Il risultato e' sempre reale. 

SQR (da non confondere con 1' operatore SQR del Basic) 
restituisce il quadrato dell' argomento. L'argomento pud' essere 
reale o intero, il risultato e' sempre dello stesso tipo 
del'argomento. 

SQRT restituisce la radice quadrata dell'argomento; 

1' argomento può' essere reale od intero, ma il risultato e' 
sempre reale. 

SUCC e' l'opposto di PRED, cioè' il successivo del suo 
argomento; anche qui argomento e risultato saranno del tipo CHAR 
od intero. 

TRUNC e' come ROUND, ma invece di arrotondare l'argomento 
prende il maggior intero piu' piccolo od uguale al numero di 
partenza. Quindi ROUND semplicemente arrotonda all'intero piu' 
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vicino, mentre TRUNC elimina la parte del numero reale dopo il 
punto decimale. Quindi i.7 sara' "arrotondato" a 2, ma 
"troncato" a i. 

Il Pascal standard non ha la funzione TAN. E' semplice, 
comunque, simularla con SIN(X)/COS(X). Come evidenziato sopra, 
tutte le funzioni trigonometriche operano solo in radianti. Per 
convertire da gradi in radianti si deve dividere per 180 e 
moltiplicare per PI; per convertire radianti in gradi dividere 
per PI e moltiplicare per 180. 

tll mio compilatore riconosce SUCC,PRED,ROUND,5QR,ODD solo se il 
calcolatore su cui si usa accetta le funzioni definite dall' 
utente: ciò'dipende dal fatto che queste funzioni standard 
Pascal non hanno equivalenti Basic. Le definizioni di queste 
funzioni vengono inserite nelle prime cinque linee del programma 
Basic prodotto.! 


* * * * # 

Se volete scrivere un programma per stampare tutti gli interi 
fra uno e dieci, il solo modo che per ora conoscete e' il 
seguente: 


PROGRAM NUMERI(INPUT,OUTPUT) ; 

BEGIN 


URITEIN 

(1) 

WRITELN 

(2) 

WRITELN 

(3) 

WRITELN 

(4) 

WRITELN 

(5) 

WRITELN 

(6) 

WRITELN 

il) 

WRITELN 

(8) 

WRITELN 

(9) 

WRITELN 

( 10) 


END 


Non siate cosi' zelanti da provare anche questo programma: esso 
naturalmente funziona, ma che cosa fareste se aveste da stampare 
tutti gli interi fra uno e mille? 

Si può' piu' semplicemente ripetere una parte di programma un 
dato numero di volte mediante 1'istruzione FOR. Essa assume il 
seguente formato: 

FOR identificatore:=inizio TO fine 
DO istruzione 

Come con il comando IF, se si vuole piu' di un' istruzione dopo 
il DO, si deve usare la struttura BEGIN-END. 

L' identificatore e' una variabile di tipo intero. 
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Il comando iterativo FOR dice al calcolatore di eseguire 1' 
istruzione che segue il DO facendo assumere alla variabile tutti 
i valori compresi fra "inizio" e "fine": quindi, se inizio era i 
e fine era 10, il "loop" (cioè' 1' iterazione) viene eseguita 10 
volte. 

Se per qualche ragione il valore iniziale e' maggiore di quello 
finale, cioè' la variabile deve essere decrementata ad ogni 
passo, la parola TO deve essere sostituita con la parola DOUNTOj 
ovviamente se si usa DOUNTO bisogna assicurarsi che i due valori 
siano corretti, cioè' il primo maggiore del secondo. 

[Il mio compilatore vuole, comunque, la costruzione BEGIN-ENDI 

Il seguente programma stampa tutti i caratteri del vostro 
calcolatore (nell’ ipotesi che esso usi la codifica ASCII). 

PROGRAM CARATTERI(INPUT,OUTPUT> : 

VAR 

CH:INTEGER; 

BEGIN 

FOR CH:=3E TO 126 DO 
URITE (CHR(CH)i 
END 


In questo esempio si usa solo un' istruzione dopo la parola DO 
e, quindi, non e' necessario il costrutto BEGIN-END. 

[Lo stesso programma scritto per il mio compilatore diventa: 

VAR CH:INTEGER; 

BEGIN 

FOR CH : =32 TO 126 DO 

BEGIN 

URITE (CHR(CH)) 

END 

END. 

Si noti il posizionamento dei punti e virgola nel programmai. 

Nel FOR i valori di inizio e fine dell' iterazione possono 
essere espressioni o numeri. 

Adesso che abbiamo introdotto 1' istruzione FOR possiamo 
affrontare esempi di programi meno banali. 

Il seguente programma consente di introdurre 10 numeri e 
stampare la loro media: 

PROGRAM MEDIA(INPUT,OUTPUT) ; 
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VAR 

NUM,TOT:REAI; 

N:INTEGER; 

BEGIN 

TOT :=0 

FOR N : = 1 TO 10 DO 
BEGIN 

URITE ('INTRODURRE NUMERO \N>; 

READLN (NUM) ; 

TOT :=TOT+NUM 

END; 

URITELN ("); 

URITELN ('MEDIA = \TOT/10) 

END 

La rientranza delle istruzioni e l'uso di righe bianche hanno 
reso questo programma molto piu' facile da leggere di quanto 
sarebbe stato altrimenti; per chiarire ciò’ riportiamo lo stesso 
programma scritto in un modo piu' sciatto: 

PROGRAM MEDIA(INPUT.OUTPUT >; 

VAR 

NUM,TOT :REAL; 

N:INTEGER; 

BEGIN 
TOT :=0 

FOR Ns= 1 TO 10 DO 
BEGIN 

URITE ( 'INTRODURRE NUMERO ',N) ; 

READLN (NUM) : 

TOT :=TQT+NUM 

END; 

URITELN <">; 

URITELN ('MEDIA = ',TQT/10> 

END 


In un programma scritto in questo modo e' molto piu' difficile 
vedere le coppie di BEGIN e END corrispondenti, e 1' intera 
struttura del programma e' nebulosa. In programmi piu' lunghi 
diventa ancora piu' importante l'uso razionale dei caratteri di 
spaziatura. 

Dopo 1 ' esecuzione di un'iterazione con il FOR, la variabile 
indice (cioè' la variabile che viene dopo la parola FOR) non 
può' piu' essere usata senza riassegnarle un valore: questo 
perche' il suo valore resta indefinito. 
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Non e' possibile modificare il valore della variabile indice 
durante 1' esecuzione delle iterazioni. 

Un problema legato all' uso del FOR e' che non e' possibile 
uscire dalle iterazioni senza seguire tutta la sequenza di 
valori previsti per la variabile indice. Normalmente per 
aggirare questo problema si usa uno speciale indicatore booleano 
per decidere se le istruzioni nel loop devono essere eseguite: 

FIAG := TRUEj 

FOR LOOP : = 10 TO 1000 DO 

BEG1N 

IF FLAG THEN 
BEGIN 


IF condizione THEN FLAG := FALSE 
END (J FI¬ 
ENO {FOR} 

Il programma eseguirà' solo il contenuto del loop se FLAG e' 
VERO (TRUE); facendo diventare FLAG FALSO quando si vuole uscire 
dal loop, tutti i rimanenti cicli saranno percorsi senza 
eseguire le istruzioni. 

Questa soluzione e' probabilmente la piu' elegante (1' eleganza 
e' un' importante proprietà' dei programmi), ma e' ancora 
preferibile scrivere il programma in modo da evitare di trovarsi 
in questa situazione. 

La variabile indice e' sempre incrementata o decrementata di un' 
unita'; se si vuole un passo di un altro valore, bisogna essere 
un po' tortuosi. Per esempio un programma per stampare una 
lettera si' e una no dell' alfabeto, potrebbe essere scritto in 
questo modo (si presume di usare codici ASCII): 


PROGRAM 

VAR 

INDICE:INTEGER; 
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BEGIN 


FOR INDICE :=1 TO 13 DO 
BEGIN 

URITE <CHR(INDICE#2+63> ! 

END 


END. 

La caratteristica espressione 
comprensibile se si tiene coni 
lettera "A" e' 65. 

Come alternativa una soluzione 
problema e' la seguente: 


dopo 

il 

URITE e' 

facilmente 

i che 

il 

codice 

ASCII della 

meno 

fantasiosa 

allo stesso 


PROGRAM 


VAR 

INDICE:INTEGER; 

BEGIN 


FOR INDEX :=1 TO 26 DO 
BEGIN 

IF ODD(INDICE) THEN 
BEGIN 

URITE (CHR(INDICE+64)) 

END UFI 

END {FORI 

END. 

Questo programma e' risultato inutilmente complicato per la 
necessita' di usare la struttura BEGIN-END con il mio 
compilatore: in realta' e' alquanto piu' facile di quello 
precedente. I commenti dopo 1' istruzione END evidenziano la 
corrispondenza delle coppie BEGIN-END: vale la pena di abituarsi 
ad usare commenti di questo tipo. 

Anche se avete seguito facilmente fino adesso, questo programma 
probabilmente vi manderà' in crisi: 

PROGRAM STRISCE(INPUT,OUTPUT!; 

VAR RIGA,STELLA,STRISCIA:INTEGER; 

BEGIN 

FOR RIGA :* 1 TO 6 DO 
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BEO IN 

FQR STELLA := 1 TO 13 DO 
BEGIN 

URITE ('*') 

END; 

FOR STRISCIA := 1 TD 20 DO 
BEGIN 

URITE ('=') 

END; 

WRITELN (") 

END: 

FOR RIGA := 1 TO 5 DO 
BEGIN 

FOR STRISCIA := 1 TO 30 DO 
BEGIN 

URITE ('=') 

END; 

WRITELN <") 

END 

Questo programma, che stampa in modo stilizzato la bandiera 
americana, e' un esempio di "loop nidificati". Questo concetto 
e' abbastanza autoesplicativo C e' come le bambole russe ), ma 
e' facile confondere la nidificazione dei loop, specialmente in 
un programma complesso come quello precedente. Si hanno dei 
problemi nella nidificazione, quando si perde il conto di quale 
istruzione END corrisponde alle istruzioni FOR: in generale 
mettendo un commento a ciascuna END si risolve il problema. 

Un programma piu' semplice che usa loop nidificati e' il 
seguente che calcola le tabelline dall' i al IH (non fatele 
girare su una stampante, perche' consumerebbe un mucchio di 
carta) : 

PROGRAM TABELLINE(INPUT,OUTPUT) ; 

VAR 

A,B:INTEGER; 

BEGIN 

FOR A :=1 TO 12 DO 
BEGIN 

FOR 8:=i TO 12 DO 
BEGIN 

WRITELN (A,' x ',B,' = ',A*B> 

END (per il loop B> 

END {per il loop A) 

END. 
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-’otreste alterare il programma precedente per stampare solo le 
gabelline volute: ciò' e' fattibile introducendo un' istruzione 
JEADLN. 

istruzione POR e' indubbiamente molto utile, ma non e' sempre 
.1 modo migliore per ripetere una parte di programma per un 
erto numero di volte, come vedremo nel prossimo capitolo. 




CAPITOLO QUARTO 


ISTRUZIONI REPEAT E UHI LE 


Il solo modo per ripetere una parte di programma e' usare la 
istruzione di iterazione FOR. Tuttavia questo non e' sempre il 
modo migliore per tare ciò' 1 . 

Se dovete ad esempio scrivere un programma per calcolare la 
media di una lista di numeri, potete usare 1' istruzione FOR 
come e' stato illustrato nell'ultimo capitolo; ma che cosa 
succede se 1' utente decide che vuole la media su So numeri, 
anziché' su 10? L'unico modo per soddisfare la richiesta sarebbe 
quella di modificarlo ogni volta prima di utilizzarlo, oppure di 
prevedere che 1' utente introduca il numero dei. dati da 
utilizzare prima di introdurre i dati stessi, riscrivendo quindi 
il programma in questo modo: 

PROGRAM MEDIA(INPUT,OUTPUT >; 

VAR 

NUM,VAL,INO,TOT:INTEGER; 

BEGIN 

URITE ('DI QUANTI NUMERI SI VUOLE LA MEDIA ? '); 

READLN (NUM); 

TOT :=0; 

FOR IND: =1 TO NUM DO 
BEGIN 

URITE ('INTRODURRE UN VALORE ',IND); 

READLN (VAL); 

TOT :=TQT+VAL 
END ( del loop > 

URITELN (">; 

URITELN ('MEDIA = ',TOT/NUM) 

END. 

Questo programma e' apprezzabile, in quanto soddisfa alla 
esigenza prospettata, ma e' ancora di utilità' limitata, poiché' 
richiede che 1' utente conosca in anticipo quanti dati verranno 
introdotti e ciò' non e’ sempre pratico. Ciò' che realmente 
serve quindi e' un programma come questo; 

PROGRAM MEDIABIS(INPUT,OUTPUT ); 
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VAR 

TOT,VAL,NUM:INTEGER; 

BEG1N 


TOT:*0; 

NUM:*1 ; 

REPEAT 

URITELN ('INTRODURRE UN VALORE ',NUM); 
READLN (VAL): 

TOT :«TOT+VAL; 

NUM:=NUM+1 

UNTIL VAL=0; 

URITELN ("); 

URITELN ('MEDIA = *,TOT/NUM) 

END. 


Questa nuova versione del programma continua ad accettare dati 
fin quando non e' introdotto un valore uguale a zero e a quel 
punto stampa la media dei valori introdotti prima dello zero. 


L' istruzione ripetitiva REPEAT-UNTIL utilizzata nel programma 
esegue le istruzioni comprese tra la parola REPEAT e la parola 
UNTIL, finche' la condizione indicata dopo UNTIL non e' 
soddisfatta (cioè' diventa vera). Ci sono alcuni dettagli di 
sintassi : 


- se nel loop ci sono piu' istruzioni, queste devono essere 
separate da punti e virgola e, come visto in precedenza con la 
struttura BEGIN-END, non e' necessario il punto e virgola 
prima della parola UNTIL 

- la condizione che segue la parola UNTIL deve terminare con un 
punto e virgola, a meno che non sia seguita da un altro UNTIL 
o da un END 

- [ il mio compilatore richiede che la condizione sia tra 
parentesi se termina con identificatore e se e' seguita da un 
carattere alfanumerico, analogamente alla condizione che 
segue un comando IF ] 

L' istruzione REPEAT-UNTIL e' comoda perche' elimina la neces¬ 
sita' di conoscere quante volte verrà' eseguita la iterazione, 
quando si scrive il programma o quando il calcolatore comincia 
ad eseguirlo. 
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La forma piu' generica di questa istruzione e'i 


REPEAT 


istruzioni Pascal> 


UNTIL espressione booleana 


Questo schema indica "istruzioni" Pascal, anziché' una semplice 
istruzione come nei comandi IF e FQR. Ciò' e' dovuto al fatto 
che il costrutto BEGIN-END non e' necessario in questo caso (la 
fine dell'iterazione e' ben definita dal comando UNTIL), 

Un uso comune dell' istruzione REPEAT e' la ripetizione di un 
intero programma, Ad esempio, se avete un programma per 
calcolare le radici di un'equazione di secondo grado, e' 
preferibile racchiudere tutto il programma in un'istruzione di 
REPEAT che termina solo quando l'utente ha terminato di usare il 
programma. Ciò' perche' l'utente possa continuare a ripetere i 
calcoli senza dover far ripartire ogni volta l'intero programma, 
cosa piuttosto seccante con certe macchine o certi compilatori, 

L' istruzione REPEAT-UNTIL può' essere simulata in Basic in 
questo modo: 


100 REM REPEAT 


200 IF NQT(condizione) THEN GOTO 100 


Se conoscete il Basic, potete notare che in questo programma le 
istruzioni da 100 a 200 sono eseguite sia che la condizione alla 
linea 200 sia vera, sia che sia falsa. Ciò' può' provocare 
problemi in alcuni programmi in cui le istruzioni non devono 
essere eseguite se la condizione non e' corretta. Un semplice 
modo per aggirare il problema e' quello di mettere il blocco 
REPEAT-UNTIL In un' istruzione di IF : 

IF condizione THEN 
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BEO IN 


REPEAT 

istruzioni 

UNTIL NOT(condizione) 

END 

Il programma non inizia ad eseguire le istruzioni entro il 
blocco REPEAT-UNTIL, se la condizione e' vera. Questo sistema e' 
un po' contorto, per cui, e' stato creato un altro tipo di 
istruzione iterativa: 

UHILE condizione DO istruzione 

Come al solito se si vuole piu' di un'istruzione dopo il DO deve 
essere usata la struttura BEGIN-END. 1E al solito il mio 
compilatore richiede obbligatoriamente il costrutto BEGIN-END in 
tutti i casi]. 

Con il comando UHILE l'istruzione o le istruzioni che seguono il 
DO sono eseguite solo se la condizione e' vera, mentre se 
l'istruzione e' falsa il calcolatore non considera la seconda 
parte. Questo ci consente di scrivere istruzioni del tipo 
"UHILE" errore "DO" correzione. Se si usasse un REPEAT anziché' 
un UHILE, il programma cercherebbe di eseguire la correzione 
anche quando non c'e' 1' errore. 

I principianti di solito hanno difficolta' nel decidere quale 
istruzione di iterazione usare in ciascuna situazione, poiché' 
queste istruzioni apparentemente sono molto simili fra di loro. 

II modo piu' facile per decidere quale usare e’ di esprimere il 
problema a parole cercando di usare sia la parola MENTRE sia la 
parola FINCHE': una delle due espressioni suonerà' errata, e 
questo vi dara’ un' indicazione, Nell' esempio precedente i due 
modi di descrivere il problema sono: 

- MENTRE il sistema non opera correttamente cerca di correggerlo 

- cerca di correggere il sistema FINCHE' non c' e' piu' errore. 

La seconda di queste descrizioni ha effetto solo se il sistema 
non sta lavorando quando inizia 1' esecuzione del loop: quindi 
si capisce immediatamente che si deve usare 1' istruzione UHILE. 
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CAPITOLO QUINTO 


PROGRAMMI 
CURVE SINUSOIDALI ANIMATE 

Questo programma disegna sul vostro schermo una sinusoide in 
movimento: 

PROGRAM SENO <INPUT,OUTPUT) ; 

CONST 

AMR = 50; 

VAR 

CENTRO, FATT, ANG, SPAZI, LOOP : INTEGER; 

BEGIN 


CENTRO := AMP DIV 2; 

FATT := CENTRO-2; 

REPEAT 

FOR ANG := 0 TO 43 DO 
BEGIN 

SPAZI := TRUNC(SENO(ANG/7)IFATT)+CENTR0; 

FOR LOOP := 1 TO SPAZI DO 

BEGIN 

URITE (' '); {uno spazio) 

END: 

URITELN ('+'); 

END 

UNTIL FALSE 
END. 

Per usare il programma nel vostro calcolatore dovete inserire 
l'ampiezza in caratteri (AMP) del vostro schermo nella sezione 
CONST. 

Il programma opera stampando una sequenza continua di segni "+* 
preceduti da spazi: il numero degli spazi e' proporzionale alla 
curva sinusoidale. 

Questo programma gira senza problemi anche sul mio compilatore. 
Si noti la funzione TRUNC: deve essere usata per evitare che il 
risultato reale del calcolo del SENO sia assegnato alla 
variabile SPAZI, poiché' ciò' causerebbe un errore essendo SPAZI 
variabile intera. 
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CONVERSIONE DI MISURE DI TEMPERATURA 

Questo programma consente di convertire una temperatura in 
centigradi nell'equivalente temperatura in fahrenheit. 

PROGRAM CONV (INPUT,OUTPUT); 

VAR 

FAR, CENT i REAL; 

BEGIN 

URITE ('Centigradi ? ')j 
READLN (CENT); 

FAR := 1.8*CENT+32; 

URITELN ('Fahrenheit = ',FAR:8:2) 

END. 

[Usando il mio compilatore si deve omettere la formattazione 
numerica nell'istruzione URITELN]. 


EQUAZIONI DI SECONDO GRADO 

Questo semplice programma risolve un' equazione del tipo 
"A*X*X+8*X+C=0", supponendo che tutte le radici siano reali. 

PROGRAM QUAD(INPUT,OUTPUT>; 

VAR 

A,B,C : REAL; 

BEGIN 

URITE ('INTRODURRE a.b.c'ì; 

READLN (A.B.C); 

URITELN ('Le radici sono: '. 

(-B+SQRT(B#B~4*A*C>)/(2 * A), 

' e ', (-B-SQRT(B*B-4*A*C> )/ (2#A) ) 

END. 

Potete anche modificare il programma ponendolo dentro una 
istruzione di REPEAT per poter risolvere piu' equazioni in 
successione. 
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CAPITOLO SESTO 


PROCEDURE DEFINITE DALL'UTENTE 


In tutti i linguaggi la meccanica della programmazione la si che 
si debba ragionare contemporaneamente sul programma e sul¬ 
l'algoritmo (l'algoritmo e' il metodo che si usa per risolvere 
qualche problema: per esempio un algoritmo per convertire 
radianti in gradi e' dato alla line del capitolo sulle 
funzioni). Questo fatto può' risultare molto pesante in 
programmi lunghi scritti in Basic: ad esempio se si considera il 
listato del mio compilatore riportato alla fine di questo libro, 
ci vuole molto tempo per capire come funziona, poiché' 
l'algoritmo e’ stato reso meno evidente dalla codifica Basic. 

Questo problema si risolve evitando la necessita' di codificare 
il programma completamente e scrivendo nel calcolatore solo 
l'algoritmo. Il Pascal e' l'unico linguaggio che si avvicina a 
questo ideale: vi consente quindi di risolvere un problema con 
il calcolatore allo stesso modo con cui lo risolvereste 
normalmente. 

Facciamo un esempio. Se vi chiedessero di andare a comprare un 
etto di caramelle, inconsciamente suddividereste l'incarico in 
compiti elementari; l'incarico quindi potrebbe essere espresso 
nel seguene modo: 


1. prendi i soldi 

2. vai in pasticceria 

3. scegli le caramelle 

4. paga 

5. torna a casa 


Ciò' e' logico e facile da capire. 

Se poi vi chiedessero di scrivere un programma per controllare 
un robot che dovesse fare le stesse cose, la codifica sarebbe 
molto meno chiara : 


1. verifica che le batterie siano cariche 

2. manda un segnale alle tue gambe fornendo i dati per andare 
fino alla porta 

3. apri la porta 

4. attraversala 

5. chiudi la porta 

6. dai istruzioni alle gambe per camminare fino alla pasticceria 
Anche questa e' una semplificazione. 
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Il Pascal consente di codificare lo stesso proqramma nel 
seguente modo: 

BEGIN 

PRENDERE.SQLDI; 

ANDARE.NEGDZID; 

SCEGLIERE.CARAMELLE; 

PAGARE.CARAMELLE; 

TORNARE.A.CASA; 

END. 

Il programma e' ora immediatamente comprensibile anche a chi non 
ha mai visto un calcolatore prima. 

Questo programma e' scritto definendo alcune nuove procedure con 
nomi come "PRENDERE.SOLDI": queste nuove procedure possono 
quindi essere usate allo stesso modo di URITE e READ. 

A sua volta la definizione di ciascuna procedura può' essere un 
elenco di altre procedure; ad esempio "TORNA.A.CASA" può' essere 
formata da: 

ESCI.DAL.NEGOZIO 
PERCORRI.LA.STRADA 
APRI LA PORTA 
ENTRA.IN.CASA 
CHIUDI_LA.PQRT A 

Si noti che le procedure definite dall'utente consentono di 
programmare e gestire indipendentemente tutte le attività' che 
fanno parte di un programma. Procedendo in questo modo si ha 
anche il vantaggio di poter provare le procedure separatamente 
prima di metterle insieme per formare il programma. 


LA DEFINIZIONE DI PROCEDURE 

Vi sono alcuni tipi differenti di procedure definite dal- 
1' utente. Per il momento ci occuperemo solo del caso piu' 
semplice. 


Le procedure possono ricevere degli argomenti come fa la 
istruzione URITE o possono essere richiamate da sole senza 
argomenti, come negli esempi appena fatti. Le due alternative si 
differenziano per la presenza o l'assenza di una coppia di 
parentesi dopo il nome della procedura. Si noti che non si può' 
richiamare una procedura che richiede degli argomenti senza 
passarle gli argomenti e viceversa. 

La definizione delle procedure e' una parte della sezione 
dichiarativa di un programma. Le definizioni appaiono tra la 
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sezione VAR e il BEGIN. Ciascuna definizione di procedura deve 
terminare con un 

Il caso generale di una definizione di procedura e' : 

PROCEDURE Cidentificatore>; 

CONST 

VAR 

BEO IN 


END; 


La parola PROCEDURE avverte il compilatore della presenza della 
definizione di una procedura e quindi e' analoga a VAR e CONST. 


L' <identificatore> e' il nome della procedura; il nome deve 
seguire le regole date nel capitolo 1 per la descrizione del 
nome di un programma. 


Le sezioni CONST e VAR di una procedura possono non esservi: 
esse definiscono tutte le variabili e le costanti necessarie 
nella procedura. 

La parola BEGIN indica l'inizio delle istruzioni che costi¬ 
tuiscono la procedura. Queste istruzioni terminano con la parola 
END seguita da un 

Una procedura può' accedere a variabili definite nel programma 
principale (ecco perche' la definizione delle procedure viene 
dopo la definizione di VAR e CONST). Potrebbe sembrare 
inutile che la procedura abbia le sue proprie variabili e 
costanti. La ragione e' che una volta che la procedura e' stata 
eseguita le variabili dichiarate al suo interno sono eliminate 
liberando la relativa memoria del calcolatore per altri scopi. 
Quindi l'uso di variabili "locali” e' utile per risparmiare 
memoria . Una ragion d'essere piu' importante e' che esse 
consentono la ricorsivita'; questo concetto verrà' spiegato in 
un prossimo capitolo. 


Come esempio ecco una procedura per ripulire lo schermo del 
video ( ciascun tipo di video ha un suo codice specifico per 
ripulire automaticamente lo schermo: il metodo usato in questa 
procedura funziona su qualunque terminale video). 


45 



PROCEDURE CLS; 

VAR 

LOOP : INTEGER; 

BEGIN 

FOR LOOP !* 1 TQ 50 DO URITELN 
END; 


La procedura stampa 50 righe piene di spazi. Si stampano 50 
linee perche' pochi terminali hanno un video piu' lungo. 
Un' effettiva procedura di tipo CLS (clear-screen = pulisci 
schermo) farebbe anche tornare il cursore all'estremità' sini¬ 
stra dello schermo, cosa che non si può' fare senza sapere il 
tipo di terminale usato. 

Per eseguire questa procedura basta battere CLS in un programma. 
Quando il compilatore incontra il nome di una procedura salta 
automaticamente alla parte di codice che la. definisce. Quando la 
procedura e' finita ritorna al programma iniziale da cui era 
venuto. 

Vi sono ovviamente forti similitudini fra le procedure Pascal e 
le subroutines Basic. Molti programmatori in Basic usano 
subroutines per parti di codifica che devono essere eseguite 
piu' volte in un programma. Usare allo stesso modo le procedure 
Pascal significa sprecare un' importante possibilità'. 

E' perfettamente lecito chiamare una procedura dall' interno di 
un' altra, In seguito vedremo anche cosa succede a chiamare una 
procedura dal suo stesso interno. 

Alcuni compilatori PASCAL consentono di scrivere alcune 
procedure come routine di libreria; ciò' significa che possono 
essere incluse in altri programmi senza riscriverle. 

Per esempio un'utile procedura e' quella che consente di fare il 
sort di una lista di dati. Questa può' essere dichiarata come 
una procedura di libreria e usata in tutti i programmi. 

Un' utile proprietà' delle procedure rispetto alla semplice 
sequenza di codifica che esse comprendono all'interno, e' che 
una parte di codifica può' essere esaminata e si può' trovare 
realmente una risposta alla domanda " come funziona ? ” . La 
domanda " che cosa fa ? " richiede un esame piu' approfondito. 
Se la chiamata a una procedura e' sostituita alla semplice 
codifica, un identificatore ben scelto consente di avere una 
risposta immediata alla seconda domanda. Quando si debba 
modificare o correggere programmi di altri autori questa e' un' 
utile proprietà'. 
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Possiamo facilmente modificare la procedura CLS per stampare un 
numero variabile di linee bianche: 

PROCEDURE BLANK; 

VAR 

LOOP : INTEGER; 

BEGIN 

FOR LOOP : = 1 TO LINES DO WRITELN 

END; 


Se questa procedura e' incorporata in un programma, alla 
variabile LINES deve essere associato il numero di linee bianche 
che devono essere stampate. Qùesto può' essere un inconveniente 
per una routine di libreria poiché' e' necessario che il 
programma che la richiama non usi la variabile LINES per altri 
scopi. La soluzione a questo problema e' quella di consentire 
che LINES sia trasferita come un parametro alla procedura. Come 
esempio si può' definire questa procedura: 

PROCEDURE BLANKS (LINES : INTEGER); 

VAR 

LOOP : INTEGER; 

BEGIN 

FOR LOOP := 1 TO LINES DO WRITELN 
END; 

Ora la procedura può' essere chiamata in uno di questi modi; 

BLANKS(10) 

BLANKS(HELLO) 

BLANKS(3+A) 

Quando il compilatore incontra una chiamata a una procedura con 
dei parametri, esso copia il valore contenuto nelle parentesi 
nella variabile dichiarata nell'intestazione della procedura e 
verifica anche il tipo di argomento della chiamata rispetto a 
quello specificato nell'intestazione. E’ importante notare che 
un cambiamento fatto al valore di LINES nell'interno della 
procedura non si riflette nel valore della variabile usata per 
chiamare la procedura. Ciò' e' ovvio considerando che la 
procedura può' essere chiamata con un'espressione anziché' con 
una variabile: questa espressione può' essere un numero, e 
sarebbe impossibile cambiare il valore del numero per seguire un 
cambiamento di LINES. 

Tutto ciò' e' molto bello, ma non funziona quando si vuole 
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scrivere una procedura per fare qualcosa come scambiare i valori 
di due variabili. Guardando la seguente procedura potreste 
pensare che possa risolvere il problema, ma, se voi la provate, 
vedrete che non lo fa: 

PROCEDURE SU'AP(A. B : INTEGER) ; 

VAR 

TEMP : INTEGER; 

BEGIN 

TEMP := A; 

A ; = 6 ! 

B := TEMP 

END; 


La ragione per cui questa procedura fallisce e' che, malgrado 
tutte le variabili siano indicate correttamente, i cambiamenti 
non si riflettono sulle variabili usate per chiamare la routine 
(come sottolineato sopra questa procedura si potrebbe anche 
richiamare con valori "non variabili"). 

La procedura seguente invece esegue correttamente quanto 
richiesto: 

PROCEDURE SWAPCVAR A,6 : INTEGER); 

VAR 

TEMP : INTEGER; 

BEGIN 

TEMP ;= A; 

A : = B ; 

B := TEMP 

END: 


La sola differenza fra questa procedura e la precedente consiste 
nella presenza della parola VAR nella parentesi dopo l'identi¬ 
ficatore di procedura. Quando le variabili nell'intestazione di 
una procedura sono precedute dalla parola VAR esse diventano 
equivalenti alle variabili usate nel richiamare il programma. 
Ciò' significa che qualunque modifica fatta alle variabili 
nell'interno della procedura si rifletterà' nelle variabili 
usate nell'istruzione di chiamata alla procedura. 

Lo svantaggio di questo approccio e' che non si possono usare 
espressioni per chiamare la procedura, ma si possono solo usare 
variabili del tipo corretto. 
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Si possono mescolare i digerenti tipi di argomenti di una 
procedura, separando le diverse sezioni con 

PROCEDURE TANGENTI(ARG : REAL: QUAD : IMTEGER): 

PROCEDURE TITOLO (A : CAR: VAR HE ! READ: 


Quindi, diversamente dalle subroutines Basic, 
Pascal possono comportarsi in qualche modo come 
quanto possono prendere un argomento e lasciare 
non e' pero' possibile includere chiamate a 
espressioni. 


le procedure 
funzioni, in 
un risultato; 
procedure in 


Il Pascal vi permette di definire sia procedure, sia funzioni 
ciò-' e' spiegato nel prossimo capitolo. 
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CAPITOLO SETTIMO 

FUNZIONI DEFINITE DALL'UTENTE 


Le funzioni sono dichiarate praticamente nello stesso modo delle 
procedure: 

FUNCTION <nome><parametri>.‘<tipo>; 

La sezione <nome> dichiara il nome della funzione nel solito 
modo. Deve seguire le regole standard per gli identificatori. 

La sezione <parametri> e' identica a quella delle procedure. 
Cosi' come nelle procedure, la sezione parametri può' essere 
omessa se la funzione non ha argomenti. 

La sezione <tipo> definisce il tipo del risultato della 
funzione; non pud' essere omessa. 

Il resto della dichiarazione della funzione e' identico alla 
struttura di una definizione di procedura. 

Nel definire una funzione si deve dichiarare il risultato; la 
definizione ha il formato: 

<nome> ;= <tipo> 

Dove <nome> e' il nome della funzione e <risultato> e’ il 
risultato della funzione (che dovrà' essere del tipo specificato 
nell'intestazione della definizione). 

Una semplice funzione può' essere : 

FUNCTION SIMPLE:INTEQER; 

BEGIN 

SIMPLE !* 34; 

END; 

La funzione non riceve nessun argomento in ingresso, ma 
restituisce sempre il valore 34. Un semplice cambiamento nel 
programma potrebbe consentire di costruirsi la costante PI 
(anche se in un modo un po' lento e contorto). 

La precedente lista di funzioni aveva una evidente omissione dal 
punto di vista dei programmatori abituati al Basic; il Pascal 
non ha una funzione che generi numeri a caso. 

Come saprete i generatori di numeri casuali di un calcolatore 
danno in realta' dei numeri pseudo casuali: i numeri pseudo 
casuali appartengono ad una lunga sequenza che pero' si ripete 
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dopo un certo tempo. E' impossibile realizzare una vera 
casualità', ma e' sufficiente per i nostri scopi questo 
generatore di numeri casuali in Pascal: 

FUNCTION RAND( VAR BASE : INTEGER) : REAI; 

BEGIN 

RAND : = BASE/65535; 

BASE : = (25173#BASE+13849) MOD 65536 


END; 

Per usare la funzione dovete scegliere un valore iniziale per 
ricavare da questo una sequenza. Normalmente il programma che 
usa un generatore di numeri casuali chiede all’utente di 
introdurre l'ora o qualche altro evento casuale. 

RAND deve sempre essere chiamata con questa base come argomento. 
Essa restituisce un numero compreso fra 0 e 1 (o che eventual¬ 
mente li include). Questo numero può' essere facilmente 
moltiplicato per un fattore di scala e trasformato in numero 
intero per simulare ad esempio il lancio di un dado. La funzione 
cosi' com'e' potrebbe causare overflow in un calcolatore non in 
grado di gestire interi a 32 bit. 


Il problema di fornire una base può' essere evitato con qualche 
sottigliezza di programmazione. 


L'uso principale di una tale funzione e’ nei giochi che 
richiedono eventi casuali. Questi giochi spesso richiedono che 
l'utente legga varie pagine di istruzioni prima che il gioco 
cominci. Quando l'utente termina le istruzioni normalmente deve 
battere il tasto RETURN. Basta quindi eseguire un loop di WHILE 
attendendo il RETURN e nel loop incrementare la base; poiché' il 
tempo necessario per leggere le istruzioni ha una grande 
variabilità', anche la base avra' la sua casualità'. 

Le funzioni definite dall’utente sono di uso limitato per noi 
con la nostra conoscenza limitata del PASCAL, poiché' in molti 
casi si richiedono in restituzione piu' valori. Vedremo in 
seguito come superare questa difficolta'. 

Un modo corretto di impiegare le funzioni e' il seguente: 

REPEAT 

GIOCO 

UNTIL FINE.GIOCO 

FINE_GIQCQ può' essere quindi una funzione che restituisce un 
valore booleano (vero o falso) a seconda che il gioco sia o meno 
terminato. 

Il prossimo capitolo e' dedicato a vari programmi di esempio che 
danno un' idea piu' chiara sull'uso delle funzioni. 


52 



CAPITOLO OTTAVO 

FROGRAMMI 
METODO DI NE UTQN-RAPHSQN 

Questo programma affronta uno dei problemi principali dell 
analisi numerica, in quanto risolve la maggior parte dell 
equazioni nella forma: 


f <x>=0 


trovando 'x' quando 'f(x)' e' uguale a zero. Scegliendo attenta¬ 
mente f(x) e' quindi possibile risolvere la maggior parte delle 
equazioni, 

L' equazione f(x) e' contenuta nella definizione di funzione del 
programma seguente e volendo può' essere cambiata. 

Un esempio di equazione e': 

f(x) = x*x-2 

Si può vedere che se f(x) e' zero , 'x' deve essere la radice 
quadrata di 2, cosicché' il programma, in questa forma, trova, le 
radici quadrate. Altri numeri possono essere messi al posto di 
2 . 


PROGRAM RAPHSON (INPUT, OUTPUT); 

VAR X,S,START,ERRDR,T,B : REAL; 

FUNCTION F(X:REAL);REAL; 

BEGIN 

F := XtX-2 
END; 

BEGIN 

URITE ('dare punto iniziale : '); 
READLN (START); 

URITE ('dare errore massimo : '); 
READLN (ERROR); 

S := START 
X := S; 

WHILE ABS ( F (X> ) >= ERRDR DO 

BEGIN 

T := F (X) ; 

X := X+0.00001 : 
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B := (F(X)-Ti/0.00001 ; 

5 := S-T/B: 

X ! = S ! 

ÙrÌtELN (X) 

END 

URITELN ('soluzione = \.X) 
END. 


Quando si fa girare il programma vengono richiesti due numeri. 
Il primo e' un punto di inizio del programma per trovare la 
radice. Dando sempre 1 normalmente si hanno buoni risultati. 
Bisogna poi introdurre l'errore massimo: e' necessario dare un 
numero molto piccolo come ad esempio 0.00001. Se poi si vuole 
una risposta piu' accurata basta diminuire l'errore di un 
fattore 10. 
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CARITOLO NONO 


TIRI DI PATI DEFINITI DALL * UTENTE 

Il fatto che le variabili dichiarate siano di uno dei tipi 
spiegati nei precedenti capitoli dipende soltanto dalla versione 
del Pascal che si usa. E' anche possibile definire i propri tipi 
di variabili che possono essere costruiti nel modo piu' adatto 
ai problemi da trattare. 

I nuovi tipi di variabili sono indicati in una sezione dichiara¬ 
tiva posta tra le sezioni CONST e VAR. (La dichiarazione di tipo 
può' anche apparire nella sezione dichiarativa di una procedura 
o di una funzione: in questo modo e' possibile avere tipi di 
dati locali). 

La dichiarazione di un tipo scalare e' semplicemente una lista 
di valori che una variabile di questo tipo pud' assumere. La 
dichiarazione 

TYPE RISPOSTA = (SI,NO); 

stabilisce che una variabile del tipo RISPOSTA può' assumere 
solo i due valori SI o NO e nessun altro. Questo nuovo tipo può' 
essere usato al solito modo nelle sezioni VAR: 

VAR A:RISPOSTA; 

E' possibile combinare le due dichiarazioni: 

VAR A:(SI,NO); 

Questa seconda forma generalmente si evita poiché' non contiene 
la parola RISPOSTA che e' un utile puntatore per le finalità' di 
questo tipo. 

Altri esempi di tipi scalari sono: 

TYPE 

SALUTI = (HELLO,CIAO,BONJOUR); 

COLORI = (BLU,ROSSO,GIALLO); 

NOTE = (DO,RE,MI,FA); 

STAGIONI® (PRIMAVERA,ESTATE,AUTUNNO,INVERNO); 

Un valore non può' appartenere a Piu' di un tipo, quindi la 
seguente dichiarazione e' illegale: 

TYPE 

FELINI = (LEONE,TIGRE,GATTO,LINCE) ; 

ANIMALI = (CANE,GATTO,GALLINA) ; 
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I nomi dei valori listati nella dichiarazione di un tipo scalare 
sono costanti di quel tipo. Quindi possiamo scrivere: 

OGGI := LUNEDI'; 

RELAZIONE := CUGINO; 

Non sono permesse assegnazioni miste; ciò' significa che si può' 
solo assegnare il valore di tipo FELINO ad una variabile di tipo 
FELINO. 

Non e' possibile eseguire operazioni matematiche come somma e 
sottrazione su variabili di tipo scalare, ma si possono eseguire 
dei test con operatori di relazione ( < , > , etc ). Quindi si 
ha LUNEDI' < MARTEDÌ'. 

Le funzioni PRED e SUCC possono essere applicate a variabili di 
tipo scalare. Quindi PRED(MARTEDÌ') = LUNEDI' e SUCC(SABATO) = 
DOMENICA, supponendo che sia stato definito un tipo scalare dei 
giorni della settimana. 

SUCC dell'ultimo componente della lista non e' definito ne' lo 
e' PRED del primo numero. 

La funzione ORD da' la posizione del suo argomento nella lista; 
ORD(LUNEDI') e' 9, poiché' si comincia a contare da zero. 

Gli scalari possono essere usati in molte applicazioni come le 
normali variabili, ma non possono essere usati nei comandi di 
READ o URITE: tutto ciò' che potreste fare e' dare il comando di 
URITE del valore di ORD di una variabile scalare. 


******** * * * 

Un tipo "sottoinsieme" e' definito da due costanti (che possono 
essere a loro volta costanti scalari). Per esempio: 

TYPE 

INDICE = 1 . . 20; 

Con ciò' si dichiara un intero (poiché' le costanti usate nella 
dichiarazione sono intere) la cui gamma di variazione e' 
1 imitata. 


Le due costanti usate devono essere come in questo caso dello 
stesso tipo e di valore differente (la prima deve avere valore 
minore). 

Si noti che sottoinsiemi di REAL non sono permessi. 

Il tipo scalare associato a un sottoinsieme e' il tipo di 
costante usato per dichiararlo. 
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Variabili di sottoinsieme sono dichiarate al solito modo nelle 
sezioni VAR: 

VAR 

LOOP : INDICE; 

Come per le dichiarazioni scalari, le dichiarazioni TYPE e VAR 
possono essere combinate in una sezione VAR (ma questo non e' 
sempre molto saggio). 

Ogni operatore che può' essere usato in una variabile di un 
particolare tipo può' anche essere usato con un sottoinsieme di 
quel tipo. 

Quindi una variabile di tipo INDICE si comporta esattamente come 
una normale variabile indice, eccetto che per le restrizioni 
poste sui valori che può' assumere. 

READ e URITE (e le loro derivate) possono solo essere usate in 
sottoinsiemi di tipo INTEGER o CHAR. 

Un uso sottile di sottoinsiemi in alcune applicazioni e' la 
verifica di un campo. Per esempio se vogliamo essere sicuri che 
un valore introdotto dall'utente in un programma e' un intero 
compreso in qualche specifico campo di valori, dobbiamo solo 
definire un tipo di sottoinsieme e quindi fare introdurre 
all'utente il valore direttamente nella variabile di 
sottoinsieme. Se il valore introdotto e' al di fuori dei lìmiti 
specificati, si a.vra' come risultato un errore. 

L'istruzione IF e' utile per scegliere una delle due possibili 
alternative di azione in funzione del valore dell'espressione 
booleana. L'istruzione CASE e' un'istruzione di IF di tipo 
generalizzato; essa abilita a scegliere una fra piu' azioni in 
funzione del valore di un'espressione scalare di sottoinsieme. 

Per esempio supponiamo che ci sia un cinema con i seguenti 
prezzi del biglietto: 

RAGAZZI : - '1000 
STUDENTI : - 'H000 
ADULTI : - '4000 

L'istruzione CASE può' essere usata per calcolare il biglietto: 


TIPO.PERSONA = (RAGAZZO,STUDENTE,ADULTO); 

VAR 

PREZZO : INTEGER; 

PERSONA : TIPO.PERSONA; 
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BEG1N 


CASE PERSON OF 

RAGAZZO: PREZZO : = 1000; 
STUDENTE: PREZZO ;= 2000; 
ADULTO : PREZZO := 4000; 

END; 

WRITELN ('Il prezzo e', PREZZO) 

END. 


La variabile PERSONA nell'istruzione CASE e' chiamata selettore. 

I differenti valori che il selettore può' avere sono stati 
usati nell'istruzione CASE come etichette. Dopo ciascuno c'e' 
un'istruzione. L'istruzione CASE permette ai programmi come 
quello sopra di essere scritti molto piu' chiaramente che con 
1'istruzione IF. 

Se si deve usare piu' di un’istruzione dopo l'etichetta di un 
CASE si deve usare la costruzione BEGIN-END. 

E' possibile scrivere istruzioni CASE come la seguente, che ha 
piu' di un' etichetta di CASE per ogni istruzione (si noti che 
un dato può' apparire solo in un'etichetta): 

CASE CODICE OF 
LUNEDI': ; 

MARTEDÌ', MERCOLEDÌ' : -; 

END; 


Uno dei precedenti labels punta a un'istruzione vuota. Ciò' e' 
permesso e può' essere utile per eliminare la necessita' di 
codificare tutta l'istruzione CASE in un'altra istruzione di IF. 
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CAPITOLO DECIMO 


MATRICI 


Molti programmi richiedono la manipolazione di grandi quantità' 
di dati. Per esempio un tipico problema pud' essere quello di 
fornire al calcolatore i risultati degli esami di 345 studenti 
e poi dire al calcolatore di indicare un valore di soglia per 
cui il 60% degli studenti sia promosso. 

Il problema critico e' che devono essere elaborati 345 diversi 
insiemi di dati. Il solo modo per mantenere questa quantità' di 
informazioni nel calcolatore e' di dichiarare 345 variabili di 
tipo intero ciascuna delle quali contiene uno dei voti. 

Supponendo di poter introdurre una dichiarazione di VAR 
adeguata, questa soluzione pud' andar bene per la maggior parte 
dei casi. Il problema nasce quando i voti debbono essere 
introdotti nel calcolatore. Si devono usare 345 istruzioni 
READLN! 

Il tipo array nel PASCAL e' un insieme di qualunque numero di 
variabili dello stesso tipo, tutte indicate con lo stesso nome. 

Per esempio una matrice chiamata VOTI può' essere usata per 
contenere i VOTI dell'esempio precedente. Per dire al 
calcolatore quali dei 345 possibili VOTI di ciascun individuo e' 
quello a cui vogliamo riferirci si usa un indice. L'indice e' 
una coppia di parentesi quadre che contiene un numero compreso 
fra 1 e 345. 

VOTO 131 sara' il voto del terzo studente, VOTO 1451 quello del 
45' studente e cosi' via. Questi sono tutti elementi della 
matrice VOTI. 

Le variabili sono dichiarate nella sezione VAR di un programma 
nel modo che segue: 

VAR 

VOTI : ARRAY li..3451 OF INTEGER; 

La sezione VAR deve dire al calcolatore il nome della matrice e 
i limiti dei suoi indici. 

Una volta che una matrice e' stata dichiarata, gli elementi 
individuali possono essere trattati come semplici variabili di 
tipo INTEGER: 


VOTO 101 := 324-RQSSI ; 
VOTO 13451 := VOTO[2]-i; 
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Questo non e' comunque un uso importante delle matrici. Si entra 
nell'uso piu' comune quando sono combimate in iterazioni con 
FOR, poiché' allora diventa possibile leggere in tutti i 345 
voti con un programma del tipo: 

FOR LOOP : = 1 TQ 345 DO 

BEGIN 

URITE ('Introdurre il voto dello studente',LOOP); 

READLN (VOTI[LOOP!) 

END; 


Una codifica analoga può' essere usata per fare la media della 
matrice o per averne una lista. 

Un programma completo di questo tipo dovrebbe far uso di 
costanti. Per esempio e' utile che, se lo stesso programma deve 
essere usato nella successiva sessione di esami, il numero degli 
studenti possa essere cambiato. 

Senza un'istruzione del tipo : 

CONST 

STUDENTI = 345; 

le necessarie modifiche sarebbero noiose. 

Diversamente dal BASIC il Pascal consente di rendere un’ intera 
matrice uguale ad un'altra mediante una linea di tipo: 

VOTI ;= VECCHI.VOTI; 

(Presupponendo che entrambe le variabili siano matrici delle 
stesse dimensioni). 

Le matrici possono essere anche usate come parametri per 
procedure e funzioni. 

Quindi le parentesi quadre sono necessarie solo se i1 programma 
fa riferimento a un particolare elemento della matrice. 
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RPPENDICE 1 

L'USO DEL MIO COMPILATORE 


Il compilatore presentato in questa appendice e' piuttosto 
sofisticato e da' buoni risultati per quello che e' previsto che 
faccia. E'importante ricordare che non vuole sostituirsi ad un 
compilatore commerciale, ma e' perfetto per imparare i punti 
basilari della sintassi del Pascal. 

Il compilatore si presenta sotto forma di due programmi in Basic 
uno nel diffusissimo Basic Microsoft l'altro nel popolare Basic 
Sinclair dello ZX Spectrum. 

Le due versioni operano nello stesso modo. 

Il programma Pascal va scritto all'interno di istruzioni DATA 
poste in testa al compilatore prima della riga 1000. 

Le istruzioni RUN 1000 o GOTO 1000 consentono di far partire 
i miei programmi, che convertono un programma Pascal in un 
programma Basic (numerato a partire dalla linea 10). 

Il programma Basic ottenuto dalla compilazione del programma 
Pascal e' semplicemente stampato: non e‘ stato fatto nessun 
tentativo di rintrodurlo nel calcolatore: ciò' poiché' la 
procedura e' differente a seconda della macchina. 

I proprietari dello ZX Spectrum e gli utenti del Basic microsoft 
dovranno ribattere manualmente il programma Basic nel loro 
calcolatore per poterlo far girare. I piu' esperti potranno 
farsi delle routines per introdurre automaticamente il codice 
tradotto. 


****** 


La descrizione seguente e' basata sulla versione Basic 
Microsoft. 

Il compilatore funziona su qualunque calcolatore che abbia le 
seguenti caratteristiche: 

- nomi di variabili a due caratteri 

- linee a piu' istruzioni 

- matrici di stringhe 

- matrici numeriche 

READ 

DATA 

REM 

GOSUB 

DIM 


61 




END 

RESTORE 

PRINT 

IF...THEN... 
GOTO 

FQR.TO... 
NEXT... 

RETURN 

LEN 

MID* 

AND 

OR 

NOT 

DEF FN.... 

CHR* 

LEFT$ 

RIGHT$ 

INT 

ABS 

ATN 

COS 

EXP 

LN 

ASC 

SOR 


Ciascun compilatore occupa circa 24 K incluse le molte istruzio¬ 
ni di REM: se decidete di ometterle quando dovete introdurre il 
programma dovete assicurarvi che le REM puntate da istruzioni di 
GOTO o GOSUB siano presenti anche se vuote. 

Il compilatore funziona esaminando il programma Pascal carattere 
per carattere e costruendo il corrispondente programma Basic. 

Questo processo non e' difficile: la cosa piu' complicata e’ 
l'analisi sintattica del programma da tradurre: quindi, anche se 
il compilatore non e' il modo piu' efficiente per far girare un 
programma in Pascal, può' verificare se sapete usare bene il 
Pascal prima di comprare un vero compilatore Pascal. 

Il compilatore per lo ZX Spectrum e' identico per molti aspetti 
alla versione Microsoft, eccetto che per le limitazioni nel 
trattamento di stringhe che si hanno nel Basic del Sinclair. 


La versione del Pascal trattata dal compilatore comprende i 
seguenti comandi: 

AND 

BEGIN 

CONST 

DIV - Vedere MOD 
DO 
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DOUNTO 

ELSE 

END 

FDR 

IF 

MOD - consentito solo se la vostra versione del Basic può' 

trattare MOD. 

NDT 

OR 

REPEAT 

THEN 

TO 

UNTIL 

VAR 

TRUE 

FALSE 

INTEQER 

BOOLEAN 

REAL 

CHAR 

ABS 

ATN 

CHR 

COS 

EXP 

LN 

ODD 

ORD 

PRED 

ROUND 

SIN 

SOR 

SQRT 

SUCC 

TRUNC 
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COMPILATORE PRSCRL PER BASIC MICROSOFT _ 

1 ************PROGRAMMA DI PROVA *************** 

IO DATA "CONSÌ P=3.14;" 

20 DATA " VAR A , B, C: REAL. ; I ; INTEGER ; K: CHAR; 

SW:BOOLEAN;" 

25 DATA "" 

30 DATA "BEOIN" 

32 DATA "" 

35 DATA " READLN(B);" 

40 DATA " POR I:=15 DOWNTO 10 DO" 

42 DATA " BEOIN" 

44 DATA " C; — (B*P) " 

46 DATA " WRITELN ( " c: i rc = ' , C ) 

50 DATA " END;" 

60 DATA "" 

70 DATA " WHIL..E K< > ' DO" 

72 DATA " BEOIN" 

74 DATA " READLN(K>" 

76 DATA " END;" 

80 DATA "" 

82 DATA " IF (BCOORCC-O) THEN 
84 DATA " BEBIN" 

86 DATA " WRI TE ( ' / / / / /.// // / / / ' ) •> 

88 DATA " END" 

90 DATA " ELSE" 

92 DATA " BEBIN" 

94 DATA " WRITE() " 

96 DATA " END;" 

98 DATA "" 

10 O D A T A " A : » A B S < B ) + A T N ( B ) - C 0 S ( B ) * E X P < B ) / 

(-3.14E—2*B);" 

110 DAT A " A : —ROUND < B ) + SIN ( B ) ~SG!R ( B ) *SQRT ( B ) —|_N ( B ) ; " 
120 DATA "A : -TRIJNC < B > +ODD ( I ) -ORI) ( B ) *PRED (B) ; " ? 

130 DATA " K;“CHE(SUGO 022)>; A;-B MOD C +B DIV C;" 

140 DATA " SW:-MOT FALSE;" 

150 OATAt " SW; =NOT ( 1 OR SW AND TRUE) OR (NQT FALSE) ; " 

180 DATA " WRI TEL.N ( '-- FINF TEST -' ) 

190 DATA "" 
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200 DATA "END." 

1000 ' 

1010 '........... 

1020 ******* COMPILATORE PASCAL ******* 

1030 ' 

1040 ' (c) Jeremy Ruston '82 

1050 

1060 '______ 

1070 ' ... ...~~... 

1100 '<<<«nucleo programma<<<<< 

1120 ' 

1130 '<<<■'<<input programma Pascal 
1140 GOSUB 1310 

1150 '<<<<<ini 2 iali 2 za variabi1i 
1160 DIM BA* ( LE*2+8 ) , VA# ( 20 ) , TV ( 20 ) , CO* ( 20 ) 

SS*(50) 

1170 SP=50 
1180 LP~1 
1190 CP=1 
1200 PV=1 
1210 PC=1 
1220 JA*~"" 

1230 JB*="" 

1240 KA*="" 

1250 MA*="" 

1260 '< < < < <c ampi 1 a 
1270 GOSUB 5170 

1280 '<< <<<lista Basic compilato 
1290 GOSUB 1500 : END 

1300 < < < < < ROUTINES<< < < < 

1310 ' 

1320 '<<<<<1egqe/1ista programma Pascal 
1330 ' 

1340 RESTORE 

1350 PRINT " < < << < PASCAL > >> > >":PRINT 
1360 LE=1 
1370 READ A* 

1380 PRINT A* 

1390 IF A*="END." THEN GOTO 1420 
1400 LE"L.E+1 
1410 GOTO 1370 
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1420 LE=LE+Ì 
1430 DIM PA*(LE) 

1440 RESTORE 

1450 FOR T?=l TO LE-1 

1460 READ PA*<T):LET PA$(T)=PA$(T)+" " 

1470 NEXT T 

1480 PAt- ( LE ) = " ********************** " 

1490 RETURN 
1500 ' 

1510 ' < < < < < 1 i s t. a Basic 
1520 ' 

1530 PRINT:PRINT "<<<<< BASIC »>>>":PRINT 

1540 FOR T=1 TO LB-1 

1550 PRINT T*10;" ";BA*(T) 

1560 NEXT T 
1570 RETURN 
1580 ' 

1590 '<<<<<incrementa puntatori Pascal 
1600 ' 

1610 CP=CP+1 

1620 IF CP >LEN ( PA $■ ( LP ) ) THEN CP= 1 : LP=LP+1 
1630 RETURN 
1640 ' 

1650 '<««decrementa puntatori Pascal 
1660 ' 

1670 CP=CP-1 

1680 IF CP=0 THEN LP=LP-1 : CP=LEN (PAf- <LP) ) 
1690 RETURN 
1700 ' 

1710 '<<<<<legge 1 carattere Pascal 
1720 ^««incrementa puntatori 
1730 ' 

1740 A*=M ID* ( PAf- ( LP ) , CP , 1 ) 

1750 GOSUB 1580 
1760 RETURN 
1770 ' 

1780 '<<<<<legge 1 carattere Pascal 
1790 «««salta spasi 
1800 ' < < < «incrementa punta t o r i 
1810 ' 

1820 GOSUB 1700 
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THEN GOTO 1320 


1830 IF AT-" " 

1840 RETURN 
1850 ' 

1860 '<<<<< stampa messaggi errore 
1870 ' 

1880 PRINT:PRINT :PRI NT 

1890 IF LPOl THEN PRINT PA$<LP-1) 

1900 PRINT PA$ CLP) 

1910 IF LPOLE THEN PRINT PAT (LP+1) 

1920 PRINT ">>>>> ERRORE : "; A*;CHR*<7) 

1930 END 
1940 ' 

1950 '<<<<<salva puntatori Pascal 
1960 ' 

1970 LG=L.P 
1980 CG=CP 
1990 RETURN 
2000 ' 

2010 '<<<<<ripristina puntatori Pascal 
2020 ' 

2030 LP=L6 
2040 CP :: -C6 
2050 RETURN 
2060 ' 

2070 ' <<<<< legge 1 ci-f ra 
2080 

2090 G0SUB 1940 

2100 GOSUB 1770 

2110 IF A$>="0" AND AT<>"9" THEN RETURN 

2120 GOSUB 2000 

2130 Af=" M 

2140 RETURN 

2150 ' 

2160 '<<<<<legge 1 carattere alfabetico 
2170 ' 

2180 GOSUB 1940 

2190 GOSUB 1770 

2200 IF A#>=~"A" AND A$< = "Z" THEN RETURN 
2210 GOSUB 2000 

2220 A$="" 

2230 RETURN 
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2240 

2250 '<<<<<legge 1 intero senza segno 
2260 ' 

2270 AA$="" 

2275 GOSUB 2060:BOTO 2290 
2280 60SUB 1.940: BOSUB 1700:B0SUB 2110 
2290 IF A$=" " THEN A$=AA$:RETURN 
2300 AA$=AA$+A$ 

2310 BOTO 2280 
2320 ' 

2330 ' < < < < < 1 eg g e identifica t: or e 
2340 ' 

2350 BA$-"" 

2360 BOSUB 2150 

2370 IF Af="" THEN RETURN 

2380 BA#=BA$+A* 

2390 GOSUB 1940:GOSUB 1700:GOSUB 2110 
2400 BB$~A# 

2410 BA$=BA*+A* 

2420 GOSUB 1940:GOSUB 1700:GOSUB 2200 
2430 IF At---" " AND BBT-" " THEN A$=BA$: RETURN 
2440 GOTO 2380 
2450 ' 

2460 '<<<<<legge 1 numero senza segno 
2470 ' 

2480 CB$="" 

2490 BOSUB 2240 

2500 IF A$~"" THEN RETURN 

2510 CB$=CB$+A$ 

2520 GOSUB 1940 
2530 GOSUB 1700 
2540 GOSUB 2000 

2550 IF A$< >". " THEN GOTO 2620 
2560 GOSUB 1770 
2570 CB*=CB*+A* 

2580 GOSUB 2280 

2590 IF A*= M " THEN RETURN 

2600 CB*=CB$+A$ 

2610 GOSUB 1940 
2620 GOSUB 1700 

2630 IF A$<>"E" THEN A$=CB$: GOSUB 2000: RETUR 



2640 CB#=CB$+A# 

2650 BOSUB 1940 
2660 BOSUB 1700 
2670 BOSUB 2000 

2680 IF A*="+" OR A$="-"THEN CB#=CB#+A#:BOSUB1700 

2690 BOSUB 2240 

2700 IF' A$= ,,M THEN RETURN 

2710 A#=CB#+A# 

2720 RETURN 
2730 * 

2740 '1egge stringa 
2750 ' 

2760 BOSUB 1940 
2770 GOSIJB 1770 
2780 BOSUB 2000 

2790 IF A#<>"’" THEN A#=RETURN 
2800 DB#=CHR#<34) 

2810 BOSUB 1770 
2S20 BOSUB 1700 
2830 DB#=DB#+A# 

2840 IF A#< >. THEN BOTO 2820 

2850 A*=LEFT* ( DB#, LEN ( DB# ) -1 ) +CHR# ( 34 ) 

2860 RETURN 
2870 " 

2880 '<<<<<1 egge costante senza seqno 
2890 ' 

2900 CD=CP:LD=LP 
2910 BOSUB 2320 

2920 IF A#="" THEN CF=CD:LP=LD:BOTO 3000 
2930 FL—0 

2940 FOR ET--1 TO PC-1 

2950 IF CO# (ET) = A# THEN FL --ET 

2960 NEXT ET 

2970 IF FL -0 THEN A#= : " " ; CP=CD: LP==LD: RETURN 
2980 IF TC(FL)—4 THEN A#«A#+"# M 


990 

RETURN 




ooo 

BOSUB 24 

50 


010 

IF A#<: 

:• " 

" THEN 

RETURN 

020 

BOSUB 1 

>7 

30 


030 

if a#<: 

. li 

" THEN 

RETURN 

040 

RETURN 
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3050 

3060 ' <<<<<legge cost.ante 

3070 ' 

3080 BOSIJB 2320 

3090 IF A$="" THEN GOTO 3170 

3100 FL=0 

3110 FOR FT--.1 TO PC.1 

3120 IF CO* <FT) -=AT" " TRENI FL=FT 
3130 NEXT FT 

3140 IF FL=0 THEN A$=" " : RETURN 
3150 IF TC(FL)=4 THEN AT-AT+"T" 

3160 RETURN 
3170 B-f ~" " 

3180 GOSUB 1940 
3190 GOSUB 1770 
3200 GOSUB 2000 

3210 IF A$="+" OR THEN B-t=A$:GOSUB 

3220 GOSUB 2450 

3230 IF A-f< >"" THEN AT=BT+AT: RETURN 
3240 GOSUB 2730 

3250 IF A*<>" " THEN : RETURN 

3260 A$~" i denti-f i catare di costante non v 
3270 GOTO 1850 
3280 ' 

329O '<< << <legge var i ab ile 
3300 ' 

3310 LD=L.P:CD=CP 
3320 GOSUB 2320 

3330 IF A$=" n THEN LP=LD:CP=CD:RETURN 
3340 FL=0 

3350 FOR GT=1 TO PV-1 

3360 IF VA* <GT)-AT THEN FL=GT 

3370 NEXT GT 

3380 IF TV (FL) =4 THEN AT= : AT+ "T" 

3390 IF FLOO THEN RETURN 
3400 A^= :: 11 " 

3410 LP=LD:CP—CD 
3420 RETURN 
3430 ' 

3440 '<< < < <push 
3450 ' 


1770 


ali do" 
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3460 SS*(SP)=JA* 

3470 SS* (SF'-l > -JB* 

3480 SS*(SP—2)=KA* 

3490 SS*(SP—3)=MA* 

3500 SP-SP-4 
3510 RETURN 
3520 * 

3530 '<< < < < push A* 

3540 ' 

3550 SS*(SP)=A* 

3560 SP=SP-1 
3570 RETURN 
3580 ' 

3590 '<<<<<pul1 
3600 ' 

3610 MA*~SS*(SP+1) 

3620 KA*=SS*(SP+2) 

3630 JB*=SS*(SP+3) 

3640 JA*=SS*(SP+4) 

3650 SP=SP+4 
3660 RETURN 
3670 ' 

3680 '<<<<<pull A* 

3690 ' 

3700 5P-SP+1 
3710 A*=SS*(SP) 

3720 RETURN 
3730 ' 

3740 '<<<<<legge 1 fattore espressione 

3750 ' 

3760 GOSUB 1940 
3770 GB*-"" 

3780 POR GT—1 TO 3 
3790 GOSUB 1770 
3800 GB*=GB*+A* 

3810 NEXT GT 

3830 IF GB*<>"NOT" THEN GB*=GOSUB 2000 
3840 GOSUB 2870 

3850 1F A*< >"" THEN A*-GB*+" "+A*sRETURN 
3860 GOSUB 3280 

3870 IF A*< >"" THEN A*=GB*+" "+A*:RETURN 
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3880 GOSUB 1940 
3890 GOSUB 1770 
3900 GOSUB 2000 

3910 IF A#<> "(" THEN GOTO 4040 
3920 GOSUB 1770 
3930 A#=GB#+"(" 

3940 GOSUB 3520 
3950 GOSUB 3430 
3960 GOSUB 4970 
3970 GOSUB 3580 
3980 6B#=A# 

3990 GOSUB 1770 

4000 IF A$<>")" THEN A$="manca parentesi chiusa": 

GOTO 1850 
4010 GOSUB 3670 
4020 A#=A#+GB#+")" 

4030 RETURN 
4040 GOSUB 1940 
4050 GC#=GB# 

4060 GB#="" 

4070 FOR GT=1 TO 5 
4080 GOSUB 1770 
4090 GB#=GB#+A# 

4100 NEXT GT 
4110 GOSUB 2000 
4120 GN=0 

4130 IF LEFT# (GB# , 3 ) == " ABS" THEN GN=3: A#= " ABS" 

4140 IF LEFT#(GB#,3)="ATN" THEN GN=3 : A#= " ATN " 

4150 IF LEFT#(GB#,3>="CHR" THEN GN=3:A#="CHR#" 
4160 IF LEFT# <GB#, 3 ) = "COS" THEN GN=3:A#="COS" 

4170 IF LEFT#(GB#,3)="EXP" THEN GN=3:A#="EXP" 
4180 IF LEFT# (GB# , 2) = "LN" THEN GN=2:A#=="LN" 

4190 IF LEFT#(GB#,3) = “ODD" THEN 6N=3:A#="FNOD" 
4200 IF LEFT# <GB#, 3) ="ORD" THEN BN=3:A#="ASC" 
4210 IF LEFT# (GB#, 4 ) - "FRED" THEN GN=4: A#= "FNF'R" 
4220 IF LEFT#(GB#,5)="ROUND" THEN GN=5:A#="FNRO" 
4230 IF LEFT#(GB#,3)-"SIN" THEN GN-3:A#-"SIN" 
4240 IF LEFT#(GB#,4)="SQRT" 

THEN GN=4:A#="SQR": GOTO 4280 
4250 IF LEFT#(GB#,3)-"SOR" THEN GN=3:A#="FNSQ" 
4260 IF LEFT#(GB#,4> —"SUGO" THEN GN-4:A#="FNSU"- 
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4270 IF LEFT$(GBT,5)="TRUNC" THEN GN=5:A*="INT" 
4280 IF GN~0 THEN Af="funzione errata" : GOTO 1850 
4290 GC$=GC*+A* 

4300 FOR GT=1 TO GN 

4310 GOSUB 1770 

4320 NEXT GT 

4330 GOSUB 1770 

4340 IF A$<>"<" THEN A$= 

"chiamata funzione senza parentesi aperta": 
GOTO 1850 
4350 6C#-=GC*+A$ 

4360 A*=GC* 

4370 GOSIJB 3520 
4380 GOSUB 3430 
4390 GOSUB 4970 
4400 GOSUB 3580 
4410 GC*=A* 

4420 GOSUB 3670 
4430 GC*-=A*+GC* 

4440 GOSUB 1770 

4450 IF Af < >")" THEN A*= 

"funzione senza parentesi chiusa":GOTO 1850 
4460 A*-=GC*+")" 

4470 RETURN 
4480 ' 

4490 '<<<<<legge 1 termine espressione 
4500 ' 

4510 GOSUB 3730 

4520 IF A$=""THEN A$="omissionefattore": GOTO 1850 
4530 JA*=At- 
4540 JB*="" 

4550 GOSUB 1940 
4560 FOR JT=1 TO 3 
4570 GOSUB 1770 
4580 JBt=JB*+A* 

4590 NEXT JT 
4600 GOSUB 2000 

4610 IF JB*<>"DIV" AND JB*<>"MOD" AND JB$<>"AND" 
AND LEFT* <JB$, 1)0"*" AND LEFT* < JB*, 1)0"/" 
THEN Af=JAt:RETURN 
4620 JA--1 
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4630 IF JB*="AND"nR JB^="DIV ,, 0R JB$= "MOD" THEN JA=3 

4640 FOR T=1 TO JA 

4650 GOSUB 1770 

4660 NEXT T 

4670 GOSUB 3730 

4680 IF At="" THEN A'$="(nanca fattore" : GOTO 1850 
4690 JA$=JA*+" "+LEFT*(JB*,JA)+" ,, +A*+" “ 

4700 GOTO 4540 
4710 ' 

4720 '(««espressione semplice 
4730 ' 

4740 GOSUB 1940 
4750 GOSUB 1770 
4760 GOSUB 2000 
4770 KA*='"‘ 

4780 IF A$="+" OR A**"-” THEN KA$=A$:GOSUB 1770 
4790 GOSUB 4480 

4800 IF A*—"" THEN A$="termine mancanteGOTO 1850 
4810 KA$=KA$+A* 

4820 GOSUB 1940 
4830 KB$="" 

4840 GOSUB 1770 
4850 KB$=KB$+A* 

4860 GOSUB 1770 
4870 KB**KB*+A$ 

4880 GOSUB 2000 

4890 IF LEFTf(KB$,1)<>"+" AND LEFT*(KB*,1><>"-" 

AND KB#O"0R" THEN A$=KA$: RETURN 
4900 IF KB$< >"OR" THEN KA*»KAt+LEFT$<KB$,1> 

4910 GOSUB 1770 

4920 IF KB**"OR" THEN KA**KA*+" OR " : GOSUB 1770 
4930 GOSUB 4480 
4940 KA*=KA*+A* 

4950 IF A*="" THEN A$=KA$:RETURN 
4960 GOTO 4820 
4970 ' 

4980 'legge espressione 
4990 ' 

5000 GOSUB 4710 
5010 MA*=A* 

5020 GOSUB 1940 
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5030 MB$="" 

5040 FOR MT=1 TO 2 
5050 eOSUB 1770 
5060 MB$=MB#+Af: 

5070 NEXT MT 

5080 GOSUB 2000 

5090 MC$=LEFT*(MB*,1) 

5100 IF MC$<>"<" AND MW<>" = " AND MC$<>">" 

THEN A*==MA*: RETURN 

5110 IF MB$="<>" OR MB*=:"< = “ OR MB$=">=" 

THEN GOSUB 1770;GOSUB 1770;A*=MB*:GOTO 51 
5120 GOSUB 1770:A*=MC* 

5130 MA*=MA*+A* 

5140 GOSUB 4710 
5150 A*=MA*+A* 

5160 RETURN 
5170 ' 

5180 ' 

5190 ' 

5200 ' 

5210 ' 

5220 ' 

5230 '<<<<routines principali di compilazione? 

5240 

5250 ' 

5260 ' 

5270 ' 

5280 '..... 

5290 ' 

5300 BA*(1)="DEF FNOD(X)=((X-INT(X/2)*2)=1)" 
5310 BA*(2)-"DEF FNPR(X)=X-1" 

5320 BA*(3)="DEF FNSU(X)=X+1" 

5330 BA$(4)="DEF FNROC X)= l NT < X+0.5 >" 

5340 BA*<5)="DEF FNSQ(X)=X*X" 

5350 LB^S 
5360 GOSUB 5400 
5370 GOSUB 5790 
5380 GOSUB 6230 
5390 RETURN 
5400 ' 

5410 '<<«Csezione costanti<<<<< 
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5420 ' 

5430 CO* ( 1 ) = "TRUE " : CO# ( 2) = "FALSE" ; PC=3 

5440 BA$<LB>="REM -CONST-" 

5450 BA* ( LB+1 ) = " TRUE—• 1 " 

5460 BA#(LB+2)= "FALSERÒ" 

5470 LB=LB+3 
5480 MD$~" " 

5490 GOSUB 1940 
5500 POR MI=1 IO 5 
5510 GOSUB 1770 
5520 MD*=MD*+A* 

5530 NEXT MT 

5540 IF MD*<>"CONST" THEN GOSUB 2000:RETURN 

5550 GOSUB 2320 

5560 IF A#="" THEN A#= 

"manca identificatore di costante": GOTO 1850 
5570 CO#(PC)~A# 

5580 GOSUB 1770 

5590 IF A$< " THEN A$~"manca segno uguale": 

GOTO 1850 
5600 GOSUB 3050 

5610 IF A#*"” THEN A#-"manca costante": GOTO 1850 
5620 IF L.EFT* ( A# , 1 ) =CHR# ( 34 ) THEN TC ( PC ) =4 
5630 BA#(LB)=C0#<PC) 

5640 IF TC (PC) -4 THEN BA# (L.B) =BA$ <LB) +"#" 

5650 DA# ( LB ) =BA$ (L.B ) + " = " + A# 

5660 LB--LB+1 

5670 PC-PC+1 

5680 GOSUB 1770 

5690 IF A$< >";" THEN A$~ 

"manca punto e virgola": GOTO 1850 
5700 GOSUB 1940 
5710 MD$~" " 

5720 FOR MT-1 TO 5 
5730 GOSUB 1770 
5740 MD*=MD$+A$ 

5750 NEXT MT 
5760 GOSUB 2000 

5770 IF MD#“ " BEGIN " OR L..EFT # ( MI)4: , 3 ) = “ VAR " 

THEN RETURN 
5780 GOTO 5550 
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5790 

5800 ' < < < < < s esior i e variabili < < < < < 

5810 ' 

5820 80SUB 1940 
5830 ME$=- " " 

5840 POR T=1 TO 3 
5350 BOSUB 1770 
5860 MEt-MES+A* 

5870 NE X.T T 
5880 60SUB 2000 

5890 TP I1E4K >" VAR" THEN RETURN 

5900 BOSUB 1770:BOSUB 1770:BOSUB 1770 

5910 A*-"END" 

5920 BOSUB 3520 
5930 BOSUB 2320 

5940 IP A*-"" THEN A$~"manca identificatore": 

GOTO 1850 
5950 BOSUB 3520 
5960 BOSUB 1770 
5970 IP A$~=" : " THEN BOTO 6000 
5980 IF AIO"," THEN A4— 

"manca vi rgol ain sezione vari abili":BOTO 1850 
5990 BOTO 5930 
6000 BOSUB 2320 

6010 IF A$<>"REAL"AND A4K>"INTEBER" AND A4K>"CHAR" 
AND A4 : < >"BOOLEAN" THEN A*="tipo errato": 

GOTO 1850 

6020 IP A4—"REAL" THEN MM=1 
6030 IF A4—"INTEBER" THEN MM=2 
6040 IF A4—"BOOLEAN" THEN MM==3 
6050 IF A4-"CHAR" THEN MM=4 
6060 BOSUB 1770 
6070 IF A$<>";" THEN A4— 

11 m a n a p u n t o e v i r g o 3. a " : S 0 T 0 18 5 0 
6 o 8 0 S 0 8 U B 3670 

6090 IP A4-"END" THEN BOTO 6140 

6100 VA4 : (PV) -A4 

61 10 TV (PV) =41M 

6120 pv-RV+1 

6130 BOTO 6080 

6140 ME4 : -“ " " 
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6150 GQSUB 1940 
6160 FOR T=1 TQ 5 
6170 GOSUB 1770 
6180 ME$=ME$+A$ 

6190 NEXT T 
6200 GOSUB 2000 

6210 IF ME#-=" BEGIN" THEN RETURN 
6220 GOTO 5910 
6230 ' 

6240 ' < < < < < b 1 oc co i str uzi ori i < < < < < 

6250 ' < < < < < passo 1 compii az i on e? 

6260 BA$ (LEO ="REM-BLOCK-" 

6270 LB“LB+1 
6280 NAf="" 

6290 EN-0 
6300 FOR T=1 TO 5 
6310 GOSUB 1770 
6320 NA£-NA$+A$ 

6330 NEXT T 

6340 IF NA#< >"BEGIN” THEN At-"manca BEGIN": 

GOTO 1850 
6350 GOSUB 7090 
6360 IF EN=0 THEN GOTO 6350 
6370 ' 

6380 ' <<<<-(passo 2 campi 1 az i one 
6390 ' 

6400 FOR T= 1 TO LB-1 
6410 A*=BA*(T) 

6420 IF A*="REM END-" THEN GOSUB 6460 

6430 IF A4 : ="REM-UNTIL-" THEN GOSUB 6970 

6440 NEXT T 
6450 RETURN 
6460 LI-T-1 
6470 BE=0 

6480 IF BA# (LI ) = 11 REM .BEGIN-" AND BE=0 

THEN GOTO 6540 

6490 IF BA$<LI)= ,, REM -BEGIN-" AND BE>0 

THEN BE==BE+1 

6500 IF BAÌ-(LI )-"REM -END-" THEN BE=BE—1 

6510 LI=LI—1 

6520 IF LI=0 THEN FRINT 
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"BEGIN--END non corri spandono" : END 
6530 GOTO 6480 

6540 IF BAT<LI-2>="REM-IP-" THEN GOTO 6750 

6550 IF BAT(LI-2)-"REM .-WHILE-"THEN GOTO 6700 

6560 IF BAT(LI--2)="REM ——POR:.THEN GOTO 6600 

6570 BAT(LI)-"REM BEGIN" 

6580 BAT <T)— "REM END" 

6590 RETURN 

6600 BAT(LI)-"REM BEGIN" 

6610 BAT(LI-2)-"REM FOR" 

6620 HT= " " 

6630 H-5 

6640 HT-HT+M IDT ( BAT ( LI --1 ) , H, 1 ) 

6650 H=H+1 

6660 IF MIDT(BAT(LI—1),H,l>-"=" THEN GOTO 6680 
6670 GOTO 6640 

6680 BAT (T) ="NEXT "+UT+"sREM END" 

6690 RETURN 

6700 BAT(LI)-"REM BEGIN" 

6710 BAT(LI—2)="REM WHILE" 

6720 BAT ( T ) - " GOTO " +STRT ((LI --2 ) * 10 ) + " : REM END " 
6730 BAT ( L. I --1 ) -BAT ( LI -1 ) +STRT ( ( T+1 ) * 10 ) 

6740 RETURN 
6750 EL—0 

6760 IF BAT<T+1>="REM -ELSE-" THEN EL=1 

6770 BAT(LI-1)-"REM THEN" 

6780 BAT ( L.I -3> -BAT (L.I -3 ) +8TRT ( ( T+1 ) * 10) 

6790 BAT ( LI -2 ) = " REM IF " 

6800 BAT ( LI --4 ) “BAT (LI ~4 ) +STRT ( (L. I -1 ) * 10 ) 

6810 BAT- (LI) "REM BEGIN" 

6820 BAT(T)-"REM END" 

6830 IF EL.-0 THEN RETURN 


6840 

BAT(T+l>=" 

REM ELSE" 



6850 

BAT(T+2)=" 

REM BEGIN 

il 


6860 

EN=0 




6870 

LL-T+3 




6880 

IF BAT(LE) 

“"REM - 

END-" 

AND EN=0 


THEN GOTO 

6940 



6890 

IF BAT(LL) 

: ™ " REM- 

•END-" 

THEN EN-EN+1 

6900 

IF BAT (LI.) 

-"REM - 

BEGIN— 

-" THEN EN-EN-1 

6910 

LL-LL+1 
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6920 IF LL>=LB THEN FRI NT "se: i one ELSE errata":END 
6930 GOTO 6880 

6940 BA$ <T)="GOTO "+STR* <LL#10>+": REM END" 

6950 BA# <LL)="REM END" 

6960 RETURN 
6970 LI=T—1 
6980 RE=0 

6990 IF BA$(LI)*"REM -REPEAT " AND RE=0 

THEN GOTO 7050 

7000 IF BA# (LI ) ="REM-REPEAT " THEN RE=RE+1 

7010 IF BA$( LI ) = "REM -UNTIL " THEN RE=RE-1 

7020 LI=LI-1 

7030 IF LI=0 THEN FRINT 

"REPEAT-UNTIL non corrispondono" : END 
7040 GOTO 6990 

7050 BA$ ( T+1 ) =BA$ ( T+1 ) +STR* ( LI * 10 ) 

7060 BA$<LI)="REM REPEAT" 

7070 BA$<T)="REM UNTIL" 

7080 RETURN 

7083 ' 

7084 '<<<<<fine compi 1 az ione<< 

7085 '_ 

7090 ' 

7100 '<<<<<legge istruzione 
7110 ' 

7120 NA$="" 

7130 GOSUB 1940 
7140 FOR T=1 TO 6 
7150 GOSUB 1770 
7160 NA$=NA$+A$ 

7170 NEXT T 
7180 GOSUB 2000 


7190 

IF 

LEFT* <NA*,5) 

= 

"WRITE" 

THEN 

GOTO 

7480 

7200 

IF 

NA$ 

= 

"READLN" 

THEN 

GOTO 

7780 

7210 

IF 

LEFT*-<NA$ ,5) 

= 

"BEGIN" 

THEN 

GOTO 

8000 

7220 

IF 

LEFT$(NA$,3) 

= 

"END" 

THEN 

GOTO 

8090 

7230 

IF 

LEFTf(NA*,2> 

= 

" I F " 

THEN 

GOTO 

8260 

7240 

IF 

LEFT$ (NA$ ,4) 

= 

"THEN" 

THEN 

GOTO 

8460 

7250 

IF 

LEFT*<NA*,4) 

ss 

"ELSE" 

THEN 

GOTO 

8550 

7260 

IF 

NA* 

= 

"REPEAT" 

THEN 

GOTO 

8640 

7270 

IF 

LEFT$ <NA#,5) 

== 

"UNTIL" 

THEN 

GOTO 

8730 
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7280 IF LEFTT(NAT,5)="WHILE" THEN GOTO 3860 
7290 IF LEFTT < NAT,3 > ="FOR" THEN GOTO 9040 

7300 ' 

7310 '<<<<< istruzioni di assegnazione 
7320 ' 

7330 GOSUB 3280 

7340 IF AT="" THEN AT="variabi 1 e non valida": 

GOTO 1850 

7350 BAT(LB)=AT+"=" 

7360 GOSUB 1770 

7370 IF A$<>":" THEN A$="mancano due punti": 

GOTO 1850 
7380 GOSUB 1770 

7390 IF AT<>"=" THEN A$="roanca ugual e":GOTO 1850 
7400 GOSUB 4970 

7410 IF AT=""THEN A$="manca espressione": GOTO 1850 
7420 BAT < LB ) =BAT ( LB ) +AT 
7430 GOSUB 1940 
7440 GOSUB 1770 

7450 IF AT< >";" THEN GOSUB 2000 
7460 LB=LB+1 
7470 RETURN 
7480 ' 

7490 '< < < < < WRITE-WRITELN 
7500 ' 

7510 FOR T-1 TO 5 
7520 GOSUB 1770 
7530 NEXT T 
7540 GOSUB 1940 
7550 GOSUB 1770 
7560 NAT=AT 
7570 GOSUB 1770 
7580 NAT=NAT+AT 

7590 IF NATO"LN" THEN NAT-" " : GOSUB 2000 
7600 BAT- ( LB ) = " F’R I NT " 

7610 GOSUB 1770 

7620 IF ATO" (" THEN AT- 

"manca parentesi aperta":BOTO 1850 
7630 GOSUB 1940 
7640 GOSUB 1770 
7650 GOSUB 2000 
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7660 IF A*=">“ THEN GOSUB 1770:GOTO 7720 

7670 GOSUB 4970 

7680 BA$(LB)=BA$<LB>+A* 

7690 GOSUB 1770 

7700 IF A$="," THEN BA$(LB)=BA$(LB)+A$:GOTO 7630 
7710 IF A$<>">" THEN A$="carattere non valido": 
GOTO 1850 

7720 IF NA*<>"LN" THEN BA$ <LB) =BA* (LB) +" ; " 

7730 LB=LB+1 
7740 GOSUB 1940 
7750 GOSUB 1770 

7760 IF A$<>"s" THEN GOSUB 2000 
7770 RETURN 
7780 ' 

7790 ' <<<<<READLN 
7800 ' 

7810 FOR T=1 TO 6 

7820 GOSUB 1770 

7830 NEXT T 

7840 GOSUB 1770 

7850 IF A*<>” (", THEN A*= 

"manca parentesi aperta":GOTO 1850 
7860 BA»<LB>="INPUT " 

7870 GOSUB 3280 

7880 IF Af-=“" THEN A$="manca var i abi 1 e" : GOTO 1850 
7890 BA$<LB)=BA*(LB>+A* 

7900 GOSUB 1770 

7910 IF A*=">" THEN GOTO 7950 

7920 IF AIO"," THEN A$="manca vi rgol a" : GOTO 1850 
7930 BA$(LB)=BA$(LB)+"," 

7940 GOTO 7870 
7950 GOSUB 1940 
7960 GOSUB 1770 

7970 IF AIO" THEN GOSUB 2000 
7980 LB=LB+1 
7990 RETURN 
8000 ' 

8010 ' <<<<<BE6IN 
8020 ' 

8030 BA$ (LB) ="REI V I-BEGIN-" 

8040 LB=LB+1 
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8050 FOR T=1 TO 5 
8060 60SUB 1770 
8070 NEXT T 
8080 RETURN 
8090 ' 

8100 '< < < < < END 

8110 ' 

8120 FOR T=1 TO 3 
8130 GOSUB 1770 
8140 NEXT T 
8150 GOSUB 1940 

8160 GOSUB 1770:IF A*—";" THEN GOTO 8230 
8170 GOSUB 2000 

8180 IF A$< >"." THEN GOTO 8230 
8190 EN=1 

8200 BA$ (LB) ="END" 

8210 LB=LB+1 
8220 RETURN 

8230 BA*(LB>="REM -END-" 

8240 LB==LB+1 
8250 RETURN 
8260 ' 

8270 '<<<<< IF 
8280 ' 

8290 GOSUB 1770:GOSUB 1770 

8300 GOSUB 4970 

8310 IF A*="" THEN A*= 

"manca condizione dopo IF":GOTO 1850 
8320 BA$<LB)="IF "+A$+" THEN " 

8330 LB=LB+1 

8340 BAT- (LB+1 ) = "REM-IF-" 

8350 BA*(LB)="IF NOT("+Af+") THEN " 

8360 LB=LB+2 
8370 ME$="" 

8380 GOSUB 1940 
8390 FOR T=1 TO 4 
8400 GOSUB 1770 
8410 ME*=ME*+A* 

8420 NEXT T 

8430 IF ME*<>"THEN" THEN A*= 

"manca THEN dopo IF":GOTO 1850 
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8440 GOSUB 2000 
8450 RETURN 
8460 ' 

8470 '< < < < < THEN 
8480 ' 

8490 FOR T=1 TO 4 
8500 GOSUB 1770 
8510 NEXT T 

8520 BA*(LB>="REM -THEN-" 

8530 LB=LB+1 
8540 RETURN 
8550 ' 

8560 '<<<<<ELSE 
8570 ' 

8580 FOR T=1 TO 4 
8590 GOSUB 1770 
8600 NEXT T 

8610 BA*(LB)="REM -ELSE-" 

8620 LB=LB+1 
8630 RETURN 
8640 ' 

8650 ' <<<<<REPEAT 
8660 ' 

8670 FOR T=1 TO 6 
8680 GOSUB 1770 
8690 NEXT T 

8700 BA$(LB > ="REM-REPEAT-" 

8710 LB=LB+1 
8720 RETURN 
8730 ' 

8740 ' <<<<<UNTIL 
8750 * 

8760 BA4 : ( LB ) = " REM-UNTIL.-" 

8770 LB=LB+1 

8780 FOR T=1 TO 5 

8790 GOSUB 1770 

8800 NEXT T 

8810 GOSUB 4970 

8820 IF A4="" THEN A$= 

"manca espressione dopo UNTIL":GOTO 1850 
8830 BA$(LB)="IF NOT < " + A4+ " ) THEN GOTO " 
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8835 BOTO 7430 
8860 ' 

8870 ' <<<<<WHILE 
8880 ' 

8890 BA$ (LEO - "REM-WHILE- 11 

8900 LB=LB+1 

8910 FOR T=1 TO 5 

8920 GOSUB 1770 

8930 NEXT T 

8940 GOSUB 4970 

8950 IF A$="" THEN Af= 

"manca espressione dopo WHILE":GOTO 1850 
8960 BAt- (LB) =" IF NOT <"+A*+") THEN GOTO " 

8970 GOSUB 1770 
8980 MM$=A# 

8990 GOSUB 1770 
9000 MMiP=l v 1Mt+AT 
9010 IF MM$O"D0" THEN At= 

"manca DO dopo WHILE":GOTO 1850 
9020 LB=LB+1 
9030 RETURN 
9040 ' 

9050 '< < < < <FOR 
9060 ' 

9070 BAI 1 (LB) = "REM-FOR-" 

9080 LB=LB+1 
9090 FOR T=1 TO 3 
9100 GOSUB 1770 
9110 NEXT T 
9120 GOSUB 3280 

9130 IF A$="" OR TV(FL)=4 THEN A*= 

"FOR con variabile non vaiìda": GOTO 1850 
9140 BA$(LB)="FOR "+AT+"-" 

9150 GOSUB 1770 

9160 IF A$<>":" THEN A#-= 

"mancano due punti dopo FOR"GQTO 1850 
9170 GOSUB 1770 
9180 IF AT< >" = " THEN A$= 

"manca uguale dopo FOR":GOTO 1850 
9.190 GOSUB 4970 
9200 IF "" THEN AT~ 
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"FDR con valore iniziale errato": GOTO 1850 
9210 BA$(LB)=BA$(LE)+A$+" IO " 

9220 GOSUB 1940 
9230 ME$="" 

9240 POR T=1 TO 6 
9250 GOSUB 1770 
92 60 ME$*ME$+A* 

9270 NEXT T 
9280 MM=0 

9290 IF LEFTS<ME*,2>="T0" THEN MM=2: ME$="TQ" 

9300 IF ME*="DOWNTO" THEN MM=6 
9310 IF MM=0 THEN A$= 

"manca TO o DOWNTO dopo POR":GOTO 1850 
9320 GOSUB 2000 
9330 FOR T=1 TO MM 
9340 GOSUB 1770 
9350 NEXT T 
9360 GOSUB 4970 
9370 BA$<LB>=BA*<LB)+A$ 

9380 IF A$="" THEN A*= 

"manca espressione dopo FOR":GOTO 1850 
9390 GOSUB 1770 
9400 MM*=AT- 
9410 GOSUB 1770 
9420 mt^MMT+A* 

9430 IF MMf< >"DO" THEN A$="manc:a DO dopo 
FOR": GOTO1850 

9440 IF ME*="DOWNTO" THEN BAf- (LB) =BA$ (LB) +" STEP-1 " 
9450 LB=LB+1 
9460 RETURN 

9470 *____ 
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Questo e' il risultato della compilazione 
di un programma Pascal 

************************************************* 


<<<<< PASCAL >>>>> 

CONST P=3.14; 

VAR A,B,C:REAL; I :INTEGER; K:CHAR; SW:BOOLEAN; 


BEGIN 

READLN(B); 

FOR I :=15 DOWNTO 10 DO 
BEGIN 
C: = <B*P) 

WRITELN('circ=',C) 
END; 

WHILE K< >' ' DO 

BEGIN 
READLN(K) 

END; 


IF (B<C)OR(C=0) THEN 
BEGIN 

WRITE('//////////// ' ) 

END 

ELSE 

BEGIN 

WRITE ( ' X7.■/.’/.■/.■/.7.7.7.7.7.X ' ) 

END; 

A:=ABS(B)+ATN(B)-COS(B)*EXP(B)/(-3.14E-2*B>; 
A:=R0UND(B)+SIN(B)-SOR(B)*SQRT(B)-LN(B); 

A:=TRUNC(B)+ODD <I)-ORD(B)*PRED <B); 

K:=CHR(SUCC(22)); A:=B MOD C +B DIV C; 

SW:=NOT FALSE; 

SW:=NOT(1 OR SW AND TRUE) OR (NOT FALSE); 
WRITELN ('-FINE TEST-') 

END. 
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BASIC 


10 DEF FNOD( X ) - ((X-INT(X/2)*2)-1) 

20 DEF FNF'R ( X ) == X — 1 
30 DEF FNSU(X)=X+1 
40 DEF FNRQ( X > = INT(X+0.5) 

50 DEF FNSQ<X)=X*X 

60 REM -CONST- 

70 IRUÈ--1 
80 FALSERÒ 
90 P--3.314 

100 REM -BLOCK- 

110 INPUT B 
120 REM FOR 

130 FOR 1= 15 IO 10 STEP -1 
140 REM BEOIN 
150 C~< B * P ) 

160 PRINT "circ=", C 
170 NEXI : REM END 
180 REM WHILE 

190 IF NOT ( K-f < > " “) THEN GOTO 230 

200 REM BEGIN 

210 INPIJT K-f 

220 GOTO 180:REM END 

230 l'F ( B< C) OR ( C= O) THEN 260 

240 IF NOT(( B< C) OR ( C= O)) THEN 300 

250 REM IF 

260 REM THEN 

270 REM BEGIN 

280 PRINT "////////////"; 

290 GOTO 330:REM END 

300 REM ELSE 

310 REM BEGIN 

320 PRINT "7. 7. 7.7. 7. 7.7.7.7.7.7.7."; 

330 REM END 

340 A=ABS( B)+ATN( B)-COS( B) * EXP< B) 

/ (- 3.314E-2 * B ) 

350 A=FNRQ( B)+SIN( B)-FNSQ( B) * SQR( B) -LN( B) 
360 A=INT( B) +FNOD ( I )-ASC ( B) * -FNF'R ( B) 

370 K$=CHR* ( FMSIJ ( 22 > ) 

380 A-• B MOD C + B DIO C 
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390 SW-NOI FALSE 

400 SW=NOT < 1 OR SW AND TRUE ) OR (NOI FALSE) 

410 FRINÌ "—.. FINE TEST-" 

420 END 
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COnTl LfìTOE ~PR5CRL PER SPECTRUH 

1 REM _ Programma ESEMPIO _ 

2 REM 

10 DATA "CONST PI=3.14159:" 

20 DATA "VAR A,C.R:REAL;" 


30 

DATA 

II 

K.CQNT:INTEGER:" 

40 

DATA 

II 

CH : CHAR : " 

50 

DATA 

II 

SU:BQQLEAN;" 

60 

DATA 

il 

il 

100 

DATA 

"1 

BEGIN" 

103 

DATA 

// 

II 

110 

DATA 

II 

CH: * 'Y' : " 

115 

DATA 

il 

il 

120 

DATA 

il 

UHILE CH='Y' DO" 

125 

DATA 

II 

il 

130 

DATA 

li 

BEGIN" 

140 

DATA 

II 

FOR CriMT : = 1 TO 5 Qd" 

150 

DATA 

il 

BEGIN" 

160 

DATA 

II 

URITELNT raggio = '):" 

170 

DATA 

il 

READLN(R) : " 

180 

DATA 

II 

C:=2#R#PI : " 

190 

DATA 

il 

WRITELN( 'circonl .= ' .C) " 

200 

DATA 

II 

END: " 

210 

DATA 

il 

il 

220 

DATA 

il 

URITE ('line ? ') : " 

230 

DATA 

il 

READLN(CH) " 

235 

DATA 

il 

il 

240 

DATA 

II 

END; " 

250 

DATA 

il 

li 

270 

DATA 

1/ 

A : =1 ,2E2 : " 

280 

DATA 

il 

il 

290 

DATA 

il 

REPEAT" 

300 

DAT A 

il 

BEGIN" 

310 

DATA 

il 

A:=A-1 .5E-1" 

320 

DATA 

il 

END" 

33© 

DATA 

il 

UNTIL A<=0:" 

340 

DATA 

II 

II 

400 

DATA 

II 

IF (NOT TRUE = FALSE) THEN" 

410 

DATA 

II 

BEGIN" 
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420 DATA " SU :-TRUE AND FALSE OR TRUE" 

430 DATA END" 

440 DATA " ELSE" 

450 DATA " BEOIN" 

460 DATA " SU := TRUE" 

470 DATA " END:" 

480 DATA " " 

500 DATA " A:=ABS(A)+ATN(A)-COS(A)/EXP(A)GROUND(A) 

+SIN(A);" 

510 DATA " A : =TRUNC ( A ) +ODD ( 5 ) -QRD ( A ) 4-PRED ( 5 ) ; " 

520 DATA " A :=LN(A)+SQR(5E2)-SQRT(A)+SUCC(5);" 

530 DATA " CH;=CHR(56):" 

800 DATA " URITELN ('% % % % % %FINE TEST %%%%%%’)" 

900 DATA "END." 

1000 REM 
1010 REM 
1020 REM PASCAL 
1030 REM 

1040 REM COMPÌLER 
1050 REM 
1050 REM 
1070 REM 

1080 REM BY JEREMY RUSTQN 

1090 REM COPYRIGHT (C"> 19R2 

1100 REM 

1110 REM 

1120 REM 

1130 REM 

1140 GO SUB 1310 
1150 REM 

1160 DIM Y$(30): DIM 8$(LE*2+8.50): DIM V$(20,30>: 

DIM T(20) : DIM C*(20,30) : DIM 0(20):DIM S$<50,50) 
1170 LET SP=50 " ' ' 

1130 LET LP=I’ 

1190 LET CP=1 
1200 LET PV=1 
1210 LET PC=1 
1220 LET DÌ="" 

1230 LET E$="" 

1240 LET F$=" “ 

1250 LET G$="" 
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1260 REM 

1270 GD SUB 3170 
12B0 REM 

1290 GO SUB 1500 
1300 STOP 
1310 REM 

1320 REM GET PASCAL 
1330 REM 
1340 RESTORE 
1350 PRINT "PASCAL:"' 

1360 LET LE=i 
1370 READ Ai 
1380 PRINT Ai 

1390 IF A$*"END." THEN GO TO 1420 

1400 LET LE=LE+1 

1410 GD TO 1370 

1420 LET LE=LE+1 

1430 DIM P$(LE,50) 

1440 RESTORE 

1450 FOR T=1 TO LE-1 

1460 READ Pi(T) 

1470 NEXT T 

1480 LET Pi (LE) = "." 

1490 RETURN 
1300 REM 

1510 REM OUTPUT BASIC 
1520 REM 

1530 PRINT """BASIC:"' 

1540 FOR T-l TO LB-1 

1545 LET Z$*B$(T>: GO SUB 9500 

1530 PRINT T* 10:" ":Z$ 

1560 NEXT T 
1570 RETURN 
1580 REM 

1390 REM INCREMENT PASCAL POINTERS 
1600 REM 

1610 LET CP-CP+i 

1620 IF CP>LEN (PÌ(LP)) THEN LET CP=1:LET LP=LP+1 
1630 RETURN 
1640 REM 

1650 REM DECREMENT PASCAL POINTERS 
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1660 REM 

1670 LEI CF-CP-1 

1630 IF CP=0 THEN LET LP=LP-i:LET CP-LEN (PS(LP 
1690 RETURN 
1700 REM 

1710 REM GEI NEXI PASCAL CHARACTER 
1720 REM AND INCREMENT PQINTERS 
1730 REM 

1740 LET A$=Pf(LP,CP) 

1730 GO SUE 1580 
1760 RETURN 
177© REM 

1780 REM GET NEXT PASCAL CHARACTER 
1790 REM IGNORINO SPACES.AND 
1800 REM INCREMENT PQINTERS 
1810 REM 

1820 GQ SUB 1700 

1830 IF A$=" " THEN GQ TO 1820 

1840 RETURN 

1850 REM 

1860 REM ERROR 

1870 REM 

1880 FRINT ''' 

1890 IF LPOl THEN FRI NT Pf(LP-l) 

1900 PRINT P$(LP) 

1910 IF* LPOLE THEN PRI NT Pf (LP+1) 

1920 PRI NT " »»»ERR0R -*"A$ 

1930 STOP 
194© REM 

1950 REM SAVE PASCAL PQINTERS 

I960 REM 

1970 LET LG=LP 

1980 LET CG=CP 

1990 RETURN 

2@00 REM 

2010 REM RESTORE PASCAL PQINTERS 

2020 REM 

2030 LET LP=LG 

2040 LET CF'=CG 

2050 RETURN 

2060 REM 
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2070 REM GET DIGIT 
2030 REM 

2090 GQ SUB 1940 
210© GO SUB 1770 

2110 IF A$>="0'-' AND A$0"9" THEN RETURN 
2120 GO SUB 2000 
2130 LET A$-"" 

2140 RETURN 
2150 REM 

2160 REM GET LETTER 
2170 REM 

21B0 GO SUB 1940 
2190 GO SUB 1770 

2200 IF A$>="A" AND A$< = "2 ,; THEN RETURN 
2210 GO SUB 2000 
2220 LET A$="" 

2230 RETURN 
2240 REM 

2250 REM GET UNSIGNEO INTEGER 

2260 REM 

2270 LET H$="" 

ÌÌ75 GO SUB 2060 : GO TO 2290 
2280 GO SUB 1940: GO SUB 1700: GO SUB 2110 
2290 IF A$="" THEN LET A$=H$: RETURN 
2300 LET Hf=H$+A$ 

2310 GO TO 2280 
2320 REM 

2330 REM GET IDENTIPIER 
2340 REM 
2350 LET 1$="" 

2350 GO SUB 215© 

2370 IF A$="" THEN RETURN 
2380 LET I$=I$+A$ 

2390 GO SUB 1940: GO SUB 1700: GO 
2400 LET J$=A$ 

2410 LET I$=I$+A$ 

2420 GO SUB 1940: GO SUB 1700: GO 
2430 IF A$ s "" AND THEN LET 

2440 GO TO 2380 
2450 REM 

2460 REM GET UNSIGNEO NUMBER 


SUB 2110 

SUB 2200 
À$=I$:^RETURN 
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247© REM 
248© LET «$="" 

249© GO SUB 224© 

2500 IF A$="" THEN RETURN 
2510 LET K$=K$+A$ 

252© GO SUB 194© 

2530 GO SUB 170© 

254© GO SUB 2000 

255© IF A$<>"." THEN GO TO 2620 
2560 GO SUB 1770 
2570 LET K$=K$+A$ 

258© GO SUB 2240 

259© IF A$="" THEN RETURN 

2600 LET K$=K$+A$ 

2610 GO SUB 1940 
2620 GO SUB 1790 

2630 IF A$<>"E" THEN LET A$=K$: GO SUB 2000;RETURN 
264© LET K$*K$+A$ 

2650 GO SUB 1940 
2660 GO SUB 1700 
267© GO SUB 200© 

2680 IF A$-"+ u OR A$="-" THEN LET K$=Kf+A$: 

GO SUB 1700 
2690 GO SUB 2240 
7700 IF Af="" THEN RETURN 
2710 LET A$=K$+A$ 

2720 RETURN 
2730 REM 

274© REM GET STRINO 
275© REM 

2760 GO SUB 1940 
2770 GO SUB 1770 
278© GO SUB 2000 
2790 IF A $<>"'" THEN 
2800 LET L$=CHR$ (34) 

2810 GO SUB 1770 
282© GO SUB 1700 
2830 LÈT Lf=L$+A$ 

2840 IF A$<>"'" THEN 

2850 LET A$=L$( TO LEN (L$)-1)+CHR* (34) 

2860 RETURN 


LET A$="" : RETURN 


GO TO 2820 
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2870 REM 

2880 REM SET UNSIGNEO CONSTANT 
2890 REM 

2900 LET CD=CP: LET LD=LP 
2910 QO SUB 2320 

2920 IF A$“"" THEN LET CP=CD: LET LP=LD: 

CO TO 3000 
2930 LET FL=0 
2940 FQR E*1 TO PC-1 

2950 LET Y$=A$: IF Cf(E)=Y$ THEN LET FL=E 
2960 NEXT E 

2970 IF FL=0 THEN LET A$="": LET CP=CD: 
LET LP-LD: RETURN 

2980 IF C (FL5 =4 THEN LET A*=A$+"$" 

2990 RETURN 

3000 QO SUB 2450 

3010 IF A$<>"" THEN RETURN 

3020 GO SUB 2730 

3030 IF A$<>"" THEN RETURN 

3040 RETURN 

3050 REM 

3060 REM GET CONSTANT 
3070 REM 

3080 GO SUB 2320 

3090 IF A$ = "" THEN GO TO 3170 

3100 LET FL=0 

3110 FQR F=i TO PC-1 

3120 LET Y$=A$: IF C$(F)=Y$ THEN LET FL=F 
3130 NEXT F 

3140 IF FL=0 THEN LET A$="RETURN 
3150 IF C (FL) =4 THEN LET A*=A$+"$" 

3160 RETURN 
3170 LET M$="" 

3180 GO SUB 1940 
3190 GO SUB 1770 
3200 GO SUB 2000 

3210 IF A$="-F" OR A$="-" THEN LET M$=A$: 

GO SUB 1770 
3220 GO SUB 2450 

3230 IF A$<>"" THEN LET A$=Mf+Af: RETURN 
3240 GO SUB 2730 
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3250 IF A$<>"" THEN LET A$=M$+A$: RETURN 
326© LET A$="BAD CONSTANT IDENTIFIER" 

3270 QO TO 1850 
3230 REM 

3290 REM 6ET VARIABLE 
3300 REM 

3310 LET LD-LP: LET CD=CP 
3320 QO SUB 2320 

3330 IF A$="" THEN LET LP=LD: LET CP=CD: RETURN 

3340 LET FL=0 

3350 FOR G=1 TQ RV-1 

3360 LET Y$=A$: IF V$(G)=Y$ THEN LET FL=G 
3370 NEXT 0 

3380 IF FL>0 THEN IF T(FL)=4 THEN LET A$=A$+"$" 
3390 IF FLO0 THEN RETURN 
3400 LET A$= 

3410 LET LP=LD: LET CP=CD 
342© RETURN 
3430 REM 

3440 REM F’USH SOME VARS 
3450 REM 

3460 LET S$(SP)=D$ 

3470 LET S$(SP-i) =E$ 

3480 LET S$(SP-2>=F$ 

3490 LET S$(SP-3)=G$ 

350© let SP-SP-4 
3510 RETURN 
3520 REM 

3530 REM F'USH A$ TO STACK 
3540 REM 

3550 LET S$(SP)=A$ 

3560 LET SP=SP-i 
3570 RETURN 
3580 REM 

3590 REM PULL SOME VARS 
36@0 REM 

3610 LET G$=S$ (SF't 1 ) 

3620 LET F$=S$(SP+2l 
3630 LET E$=Sf(SP+3) 

3640 LET Df=S$(SP+4) 

365© LET 5P-SP+4 
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3631 


3552 

3653 

3654 

3660 

3670 

3630 

i70é 

3710 

3711 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3R00 

3810 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3830 

3940 

3950 

3960 

«r l V 


) = " " 

3651 

THEN 

LET 

3652 

THEN 

LET 

•| = a /.* 

3653 

THEN 

LET 

3654 

THEN 

LET 

;>=" " 

THEN 

LET 


IF G*>"" THEN IF G$(LEN G$) = 

G$=G$( TO LEN G$-i 
IF F$>"" THEN IF Ff(LEN F$)=* 

F$=F$( TO LEN F$-l) 

IF E$>"" THEN IF E$(LEN E*)=" 

E$=E$( TD LEN E*-l> 

IF Dt>" " THEN IF D: 

D$=D*( TQ LEN D$-l) 

RETURN 
REM 

REM FULL A$ FROM STACK 
REM 

LET SP=SP+1 
LET A$=S$(SP) 

IF A$>" " THEN IF A$ (LE 
A$=A$( TO LEN A$-l): GO TO 3711 
RETURN 
REM 

REM GET FACTOR 
REM 

GO SUB 1940 
LET N$="" 

FDR G=1 TO 3 
GO SUB 1770 
LET N$=N$+A$ 

NEXT G 

IF N$<>"NOT" THEN LET N$='"‘ ; GO SUB 2000 
GO SUB 2870 

IF A$<>"" THEN LET A$=N$+" "+A$: RETURN 
GO SUB 3280 
IF A$<THEN 
GO SUB 1940 
GO SUB 1770 
GO SUB 2000 
IF A$<>"(" THEN 
GO SUB 1770 
LET A$=N$+"(« 

GO SUB 3520 
GO SUB 3430 
GO SUB 4970 
GO SUB 3580 


LET A$=N$+ " i ‘+A$ : RETURN 


GO TO 4040 
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3980 LEI N$=A$ 

P.QQQi Qf! RIJB i 770 

4000 IF À$0")"*THEN LET A$="NO CLOSINQ BRACKET": 

60 jr\ 1850 
4010 GC SUB 3670 
4020 LET A$=A$+N$+" ) " 

4030 RETURN 
4040 60 SUB 1940 
4050 LET 0$=N$ 

4060 LET N$=" 

4070 FOR 6=1 TO 5 
4080 60 SUB 1770 
4090 LET N$=N$+A$ 

4100 NEXT 6 - 

4110 60 SUB 2000 
4120 LET 6N=0 

4130 IF U $(TO 3>="ABS"THEN LET GN=3: LET 
4140 IF m ( TO 3) = "ATN"THEN LET GN=3: LET 
4150 IF N$(TO 3)="CHR"THEN LET GN=3:LET 
4160 IF N$(TO 3>="CQS"THEN LET GN=3: LET 
4170 IF N$(TO 3)="EXP"THEN LET GN=3:LET 
4180 IF N$ < TO 2)="LN"THEN LET GN=2i LET A$="LN" 

4190 IF m ( TO 3)="ODO"THEN LET GN=3:LET A$="FN OD" 
4200 IF N$( TO 3)="ORD" THEN LET GN=3: 

LET A$="CODE" 

4210 IF N$( TO 4)="PRED" THEN LET GN=4: 

LET A$="FN PR" 

4220 IF mi TO 5) ="ROUND" THEN LET GN«5: 

LET A$="FN RO" 

4230 IF N$( TO 3)="SIN" THEN LET GN=3: 

LET A$="SIN" 

4240 TF N$( TO 4)="SQRT" THEN LET GN=4: 

LET à$="SQR": 60 TO 4280 
4250 IF N$( TO 3)="SQR" THEN LET GN=3; 

LET A$="FN SQ" 

4260 IF mi TO 4) = "SUGO" THEN LET GN=4: 

LET a$= ■'FN SU" 

427© IF N$( TO 5)="TRUNC" THEN LET GN=5: 

LET A$="INT" 

4280 IF GN=0 THEN LET A$="BAD PUNTION CALL"'J 
60 TO 1850 


A$="ABS" 
A$="ATN" 
A$="CHR$" 
A$="CQS" 
A$="EXP" 


100 



4290 LET 0$=Q$+A$ 

4300 FOR G=1 TD GN 
4310 QO SUB 1770 
4320 NEXT G 
4330 00 SUB 1770 

4340 IF A$<>"(" THEN LET A$="NO OPENING BRACKET 
FOR FUNGIION": QO TO 1850 
4350 LET 0*=0$+A$ 

4360 LET A$=Q$ 

4370 GO SUB 3520 
4380 GO SUB 3430 
4390 GO SUB 4970 
4400 00 SUB 3580 
4410 LET 0$=A$ 

4420 QO SUB 3670 
4430 LET Q$=A$+Q$ 

4440 QO SUB 1770 

4450 IF A$<>•'•')" THEN LET A$="NO ClQSINQ BRACKET 
FOR FUNGIION CALL": GO TO 1850 

4460 LET A$=Q $+")" 

4470 RETURN 
4480 REM 

4490 REM GET TERM 
4500 REM 

4510 GO SUB 3 i oU 

4520 IF A$=" " THEN LET A$= "MISSINO FACTOR”; 

GO TO 1850 
4530 LET D*=A* 

4540 LET E$=”” 

4550 GO SUB 1940 
4560 FOR J=1 TO 3 
4570 GO SUB 1770 
4580 LET E$=E$+A$ 

4590 NEXT J 
4600 GO SUB 2000 

4610 IF E$<>"DIV" AND E$O"M0D" AND E$<>"AND" 

AND E$(i)<>"sr AND E$(l)<>"/" THEN LET Af=D$: 
RETURN 

4620 LET JA=1 

4 k 3 ^ if E$=”AND" np E$=”DIV” OR E$=”MOD” THEN 
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4640 

FOR 

T=i IO JA 






4650 

60 

SUE 1770 






4660 

NEX 

T T 






4670 

60 

SUB 3730 






4580 

IF 

A$=" " THE!' 

LET 

A$=" 

MISSINO F 

ACTOR 

60 


TQ 

1850 






4690 

LEI 

D$=0$+ " " 

+E$ ( 

TO JA 

)+" "+A$+ 



470© 

60 

TQ 4540 






4710 

REM 







4720 

REM 

SIMF'LE EX 

PRESS 

ION 




4730 

REM 







4749 

60 

SUB 1940 






4750 

60 

SUB 1770 






4760 

60 

SUB 2000 






4770 

LEI 

F%~ " '' 






4780 

IF 

A$="+" OR 

A$ = - 

!I jhE 

N LET F$ 

=A$ : 



60 

SUB 1770 






4790 

60 

SUB 4480 






4800 

IF 

A$ = " " THE!' 

! LET 

Af = " 

MISSINO T 

ERM" : 



60 

in 1850 






4810 

LEI 

F$=F$+A$ 






4820 

60 

SUB 1940 






4830 

LÈI 

Q$=" " 






4840 

60 

SUB 1770 






4850 

1 CT 
. ; 

Q$=Q$+A$ 






4860 

r.fi 

SUB 1770 






4870 

LEI 

Qf=Q$+A$ 






4880 

60 

SUB 2@00 






4890 

I F 

Q$ 1 1 ) < > ’ 4- ■' 

AND 

! 1 ) 

AND 

QT< > 

OR " 


THF 

N LET A$= 

= F$: R 

ETURN 




4900 

IF 

Q$< >"OR" THEM 

LET F 

$=F$+Q$(1 

’l 


4910 

60 

SUB 1770 






4920 

IF 

Qf="OR" TF 

■!EN L 

ET F$ 

=F$+" OR 

" ; 60 

SUB 17 

4930 

60 

SUB 4480 






4940 

LET 

F$=F$+A$ 







4950 IF A$=" !i THEN LEI A$=F$: RETURN 
4960 60 IO 4820 
4970 REM 

4980 REM GEI EXPRESSION 
4990 REM 

500g Q0 SUE' 4710 
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5010 LET Gf=A$ 

5020 GO SUB 1940 
5030 LET R$="" 

5040 POR M=1 IO 2 
5050 GQ SUB 1770 
5060 LET R$=R$+A$ 

5070 NEXT M 
5080 GO SUB 2000 
5090 LET T$=R$(1) 

5100 IF T$<>"<" AND T$<>" = " AND T$<>">" AND T$<>" 

< = '•' AND T$< >'•'<>'•■ AND T$< >">='•' THEN LET A$= 
Q$: RETURN 

5110 IF R$= "<>OR R$="< = w OR R$=">=" THEN GO SUB 
1770: GQ SUB 1770; LET A$=R$:GQ TO 5130 
5120 GO SUB 1770: LET A$=T$ 

5130 LET G$=G$+a$ 

5140 GO SUB 4710 
5150 LET A$=G$+A$ 

5150 RETURN 


5170 

REM 



5180 

REM 



5180 

REM 



520© 

REM 



5210 

REM 



5220 

REM 



5230 

REM 



5240 

REM 

MAIN PROGRr 

iM 

5250 

REM 



5260 

REM 



5270 

REM 



5280 

REM 



5290 

REM 



5300 

LET 

0$ ( 1 ) SS " Qj* F 

FN OD(X)=((X- 

5310 

LET 

B$(2)="DEF 

FN PR(X)=X-1" 

5320 

LET 

B$(3)="DEF 

FN SU(X)=X+1" 

5330 

LET 

B$(4)="DEF 

FN RO(X)=INT( 

5340 

LET 

B$(5)="DEf 

FN SQ(X)— x % x " 

5350 

LET 

LB=6 


5360 

GO 

SUB 5400 


5370 

GO 

SUB 5790 


5380 

GO 

SUB 6230 
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533© RETURN 
540© REM 

5410 REM CQNST SECTIQN 
5420 REM 

5430 LEI C$(1>="TRUE": LEI Cf(2)="FALSE": LET PC=3 

5440 LET B$(LB>="REM —-CONST-" 

5450 LET Bf ( LB+ 1 ) = " LET TR!JE=1" 

5469 LET Bf(LB+2)= "LET FALSE=0" 

547© LET LB=LB+3 
548© LET Uf="" 

5430 GO SUB 1340 
5500 FOR M=1 TO 5 
5510 GO SUB 1770 
5520 LET Uf=Uf+Af 
5530 NEXT M 

554© IF U$<>"CQNST" THEN GO SUB 2000: RETURN 
5550 GO SUB 232© 

556© IF Af=""~THEN LET A$="MISSINO CONSTANT 
IDENTIFIER": GO TO 185© 

5570 LET Cf(PC)=A$ 

5580 GO SUB 1770 

5530 IF A$<>"=" THEN LET Af="MISSINO EQUALS SIGN": 

GO TO 1850 
560© GO SUB 3050 

5610 IF Af ="" THEN LET A$="MISSINO CONSTANT": 

GO TO 185© 

5620 IF Af C1)=CHR$ (34) THEN LET T(PC)=4 
5680 LET BfCLB)=Cf(PC) 

5640 IF T(PC)=4 THEN LET Z$=B$(LB): GO SUB 3500: 
lET Bf(LB)=Zf+"f" 

565© LET Zf=Bf(LB): GO SUB 350©: LET Bf(LB)="LET 
"+Zf+"="+AÌ 
5660 LET LB=LB+1 
5570 lET PC=PC+ì 
568© GO’SUB 1770 

5690 IF Af<>":" THEN LET Af="MISSINO SEMI COLON" 

: GO TO 1850 
570© 30 SUB 1940 
5710 LET Uf="" 

5720 FOR M=1 TO 5 
5730 GO SUB 1770" 
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5749 LET U$«U$+A$ 

5750 NEXT M 
5760 60 SUB 2000 

5770 IF U$ = "BEGIN" OR U$ ( IO 3)="VAR" THEN RETURN 
5780 QD TO 5550 
5790 REM 

5800 REM VAR SECTION 
5810 REM 

5820 60 SUB 1940 
5830 LET U$="" 

5840 FOR T=i TO 3 
5850 60 SUB 1770 
5860 LET U$=Uf+A$ 

5870 NEXT T 

5880 60 SUB 2000 

5890 IF U$<>"VAR" THEN RETURN 

5900 60 SUB 1770: 60 SUB 1770: 60 SUB 1770 

5910 LET A$="END" 

5920 60 SUB 3520 
5930 60 SUB 2320 

5940 IF A$="" THEN LET A$="MISS1NQ IDENTI PIER": 

60 TO 1350 

5950 60 SUB 3520 
5960 60 SUB 1770 
5970 IF A$=":" THEN 60 TO 6000 
5980 IF A$<>"," THEN LET A$="MISSINO COMMA 
IN VAR SECTION": 60 TO 1850 
5990 60 TO 5930 
6000 60 SUB 2320 

6010 IF A$<>"REAL" AND A$<>"INTE6ER" AND A$<>" 

CHAR" AND A$-<>"BQGLEAN" THEN LET A$=" ILLEGAL 
TYPE": 60 TO 185© 

6020 IF A$="REAL" THEN LET MM=1 
6030 IF A$="INTE6ER" THEN LET MM=2 
6040 IF A$="BOOLEAN" THEN LET MM=3 
6050 IF A$="CHAR" THEN LET MM=4 
6060 60 SUB 1770 

6070 IF A$<>";" THEN LET A$="MISSIN6 SEMI COLON": 

60 TO 1850 
6080 60 SUB 3570 

6090 IF A$="END" THEN 60 TO 6140 
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6100 LET y$(P'v‘)=A$ 

6110 LET T(PV)=MM 

5120 let py=py+i 

6130 QO TO 6030 
5140 LET U$= " " 

6150 QO SUB 1940 
6160 FOR T=i TO 5 
5170 QO SUB 1770 
61S0 LET U$=U$+A* 

6190 NEXT T 

6200 QO SUB 2000 

6210 IF U$="BEQIN" THEM RETURN 

6220 QO TO 5910 

6230 REM 

6240 REM BLOCK 

5250 REM 

6260 LET BÌ«LB)=•'■ REM —BLOCK-" 

6270 LET LB=LB+Ì 
6230 LET U$="" 

6290 LET EN=0 
6300 FHR T=1 TP 5 
5210 QO SUB 1770 
6320 LET U$=U*+A$ 

6330 NEXT T 

6340 IF U$<>"BEQIN" THEN LET A$="MISSINO BEQIN": 

QO TO 1850 
6350 QO SUB 7090 
6360 IF EN=0 THEN QO TO 635© 

6370 REM 

6380 REM START SECOND PASS 
6390 REM 

64O0 FOR T=i TO LB-1 
6410 LET A$=B$(T) 

6420 IF A$(TO 13)="REM —END—" THEN QO SUB 6460 

643© IF A$( TO 15)-"REM -UNTIL-" THEN QO 

SUB 5970 
6440 NEXT T 
6450 RETURN 
6460 LET LI=T~1 
6470 ! ET 8E=0 

5480 IF BÌ(LI. TO 15)="REM -BEQIN-" AND BE=0 
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THEN GQ TO 6540 

6490 IF B*(LI, TO 15)="REM -BEGIN-" THEN 

LET 6E=BE+1 

6500 IF B$(LI, TO 13)="REM -END-" THEN 

LET BE=BE-1 
6510 LET LI — LI — 1 

6520 IF LI=0 THEN FRINT "CAN'T MATCH BEGIN/END": 



GO 

TO 1850 





6530 

GO 

TO 6480 





6540 

IF 

B$(LI-2, TO 

12) 

ti 

76 

m 

— y- 

- IF —" 

THEN 


GO 

TO 6750 





6550 

IF 

B$(LI-2. TO 

15) 

= "REM 

-UH ILE— 

THEN 


GO 

TO 6700 





6560 

IF 

B$ (LI-2, TO 

13) 

= "REM 

-POR-" 

THEN 


GO 

TO 6600 






6570 LET B$(LI)="REM BEGIN" 

6580 LET B$(T)="REM END" 

659© RETURN 

6600 LET B$(LI)="REM BEGIN" 

6610 LET B$(LI-2)="REM FDR" 

6620 LET U$="" 

5630 LET H=5 

5640 LET U$=U$+B*(LI-i,H) 

6650 LET H=H+1 

6660 IF B$(LI-1.H)="=" THEN GQ TO 6680 
6670 GO TO 6640 

6680 LET B$ (T)="NEXT "+U$+" : REM END" 

6690 RETURN 

6700 LET B$(LI)="REM BEGIN" 

6710 LET B$(LI-2)="REM UHILE" 

672© LET B$ ( T ) = " GO IO " +STR$ ( ( LI -2 ;■ * 1 © ; + " : REM END " 
6730 LET Z$=B$iLl-ì): GQ SUB 9500: LET B$(LI-i) 

=Z$+" "+STR$ ((T+1 ) % 1© > 

6740 RETURN 
6750 LET EL=0 

6750 IF B$ (T+l, TQ 14:■ ="REM-ELSE— " THEN LET EL=1 

6770 LET B$(LI-1)="REM THEN" 

6780 LET Z$=Bf(LI-3): GO SUB 9500: LET B$(Ll-3> 

= 7+STR$ f f T+1 ) % 1 0) 

6790 LET B$ a 1-2)*"REM IF"" - ' 

5800 LET Z$=B$ iLI—4>: GO SUB 9500: LET B$(LI-4> 
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AND EN=0 


=Z$+" "+STR$ ( ( LI -i > * 1-0 > 

6810 LEI B$ C LI) ="REM BEGIN" 

6820 LEI 8$(T)="REM END" 

6830 IF EL=0 THEN RETURN 
6B40 LET B$(T+1 ) ="REM ELSE" 

6850 LET B$ (T+H)="REM BEGIN" 

6860 LET EN=0 
5870 LET LL=T+3 

6880 IF B$(LL, TO 13)="REM -END-" 

THEN GD TO 6940 

6890 IF B$(LL, TO 13)="REM -END-" THEN 

LET EN=EN+1 

6900 IF B$ 1 LL, TO 15)= "REM —BEGIN-" THEN 

LET EN=EN-1 
6910 l-ET LL=LL+1 

6920 IF LL>=LB THEN PRINT "ELSE SECTION BAD":STOP 
6930 GQ TO £880 

6940 LET B$(T)="GQTQ "+STR$ (LL*10)+": REM END" 

6950 LET B$(LL)="REM END" 

6960 RETURN 
6970 LET LI= T —1 
6980 LET RE=0 

6990 IF B$(LI, TO 1£)="REM -REPEAT-" AND RE=0 

THEN GQ TO 7050 

7000 IF B$(LI, TO 16)-"REM -REPEAT-" THEN 

LET RE=RE+1 

7010 IF B$(LI. TO 15)="REM -UNTIL-" THEN 

LET RE=RE-1 
7020 LET LI = LI — 1 

7030 IF LI=0 THEN PRINT "CAN'T MATCH REPEAT/UNTIL 
STOP 

7040 GO TO £330 

7050 LET Z$=B$(T+l); GO SUB 950©; LET B$(T+i)=Z*+" 
"+STR$ fLI * 10) 

7060 LET B$(LI)="REM REPEAT" 

7070 LET B$(T)="REM UNTIL" 

7080 RETURN 
7090 rem 

7100 REM GET STATEMENT 

7110 REM 

7120 LET U$="" 


108 



7130 

7140 

7150 

7160 

7170 

7180 

7190 

7200 

7210 

7220 

7230 

7240 

7250 

7260 

7270 

7280 

7290 

7300 

7310 

7320 

7330 

7340 


7350 

7360 

737© 


7380 

7390 


1 400 
7410 


7420 

7430 

7440 

7450 

7460 

7470 

7430 

7490 


00 SUB 1940 
FQR T=1 T0 6 
00 SUB 1770 
LET U$=U$+A$ 

NE XI T 
00 SUB 2000 

IF U$C IO 5)-"URITE" THEN 00 TQ 7489 
IF U$="READLN" THEN 00 IO 7780 
IF U$( TO 5)="BEOIN" THEN 00 TO 8000 
IF m < TO 3)="END" THEN 00 TO 8090 
IF l'$( TO 2)=" IF" THEN 00 TO 8260 
IF U$( TO 4> = "THEN" THEN 00 TO 8460 
IF U$( TO 4)="ELSE" THEN 00 TO 8559 
IF U$-"REFEAT" THEN 00 TO 8640 
IF U$( TO 5)="UNTIL" THEN 00 TO 8730 
IF U$< TO 5)*"UHILE" THEN 60 TO 8860 
IF U$( TO 3)-"POR" THEN 00 TO 9040 


REM 

REM ASSI0MAMENI' 

REM 

00 SUB 3280 

IF A$="" THEN LET A$="INVALID VARIABLE 
00 TO 1850 


LET 

B$ 

(LB)="LET 

“ +A$+ " = '■ 

00 

SUB 

1770 


IF 

A$< 

>" : " THEN 

LET A$=“MISSINO COLON 

00 

TO 

185© 


00 

SUB 

1770 


1F 

A$< 

>"*" THEN 

LET A$="MISSIN6 EQUAL 

• Q 

iO TO 1850 


00 ^ 

SUB 

4970 


IF 

A$= 

"" THEN 

_ET A$=" NO EXPRESSION"; 

00 

TO 

1850 


LET 

li 

=B$(LB): 

3 0 S U B 35001 L E T B $ L B ) 

00 

RI Ig 

1940 


00 

SUB 

1770 


IF 

A$< 

>" ; " THEN 

GO SUB 2009 


LET LB=LB+i 

RETURN 

REM 

REM WRITE/WRITElN 


Z$ + A$ 


109 







7500 REM 

“7 cr 4 n. r- r t r-. 


7510 

FOR 

T=i 

TQ 

7520 

00 S 

UB 

1770 

7530 

NEXT 

T 


7540 

00 S 

UB 

1940 

7550 

00 S 

UB 

1770 

7560 

LEI 

U$= 

A$ 

7 = 17 * 

1 W ■ 

00 s 

UB 

1770 


7580 LEI U$-U$+A$ 


7590 

IF 

Uf< > 

" LI 

M" THEN LET 

U$=" 

: 00 SUB 

2000 

7600 

LEI 

B$( 

lB 

>-"FRINT" 




7610 

00 

SUB 

17' 

70 




7620 

IF 

Af<> 

* •' ( 

" THEN LET 

A$ = " MI 

SSINO ORE 

NINO 


BRA 

iCKET 

» , 

• 

00 TQ 1S50 




7630 

00 

SUB 

1 Q 

A —• 1 

4@ 




7640 

00 

SUB 

17 

70 




7659 

00 

SUB 

P Gl : 

W W 

00 




7660 

IF 

A$=" 

;« '•* 

THEN QO 10 

1770 : 

00 TO 77 

20 

7670 

00 

C;| !R 

49 

70 




7680 

LET 

~z£= 

Bi¬ 

(LB): 00 SUB 

9500 : 

LET B$(L 

B)=Z$+A$ 

7690 

00 

SUB 

ll 

7 Gì 

• w 





7700 IF A$="," THEN LEI Z$=B$iLB): 00 SUB 9500: 
LEI B$(LB)=Z$+A$: 00 TQ 7630 


7710 

IF * THEN 

00 TO 1850 

LET 

A$ = I LLEUAL 

SEPARATORE : 

7720 

IF U$<>*LN" THEN 

LET 

' Z$=B$(LB): 

00 SUB 9500: 


LET (LB)=Z$+": 

}> 



7730 

LET LB=LB+Ì 




7740 

00 SUB 1940 




7 7 5 0 

00 SUB 1770 




7760 

"7 “7 “7 pi 

IF A$<>";" THEN 

DC TI !O! 

00 S 

■UB 2000 


i i « V 

7780 

KZ. i 

REM 




7790 

REM READLN 




7800 

REM 




7810 

FOR T=ì TQ 6 




7820 

00 SUB 1770 




7830 

fjp y T T 




7840 

00 SUB 1770 




7850 

IF A$<>"(" THEN 

LET 

A$= "MI SS 1 NO 

QPENIN0 


BRACKE1 : 00 TO 

J. W mi W 
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7850 LET B$(LB>="INPUT " 

787© QO SUB 3280 

7880 IF A$=" " THEIM LET A$="MISSINO VARI AB LE'' : 
QO TO 1850 

7890 LÈT 2$=B$(LB):GO SUB 9500: LET B$(LB)=Z$+"" 
790© GO SUB 177© 

7 Q10 \F THEN GO TO 7950 

7320 IF A$<>"," THEN LET ISSINO COMMA": 

GO TO 1850 

7930 LET Z$=B$ÌLB>: GO SUB 950©: LET B$(LB)=Z$+ 

7949 GO TO 7870 

7950 GO SUB 1940 
7960 GO SUB 1770 

7970 IF A$<>";" THEN GO SUB 2@00 

7980 LET LB=LB+Ì 

7990 RETURN 

8000 REM 

3010 REM BEGIN 

3020 REM 

8@30 LET B$(LB)="REM -BEGIN-" 

8040 LET LB=LB+Ì 


8050 

FOR T=i 

TO 5 


8060 

GO SUB 

1770 


8070 

NEXT T 



8080 

RETURN 



8090 

REM 



8100 

REM END 



8110 

REM 



8120 

FOR T=1 

TO 3 


8130 

GO SUB 

1770 W 


il 40 

NEXT T 



8150 

GO SUB 

1940 


8160 

GO SUB 

1770: 

IF A$=";" THEN 

8170 

GO SUB 

2000 


81 R@ 

IF A$<> 

"." THEN GO TO 823© 

8190 

LET EN= 

ì 


8200 

LET B$( 

LB) = '' 

STOP" 

8210 

LET LB= 

LB+1 


8220 

RETURN 



8230 

LET B$( 

LB )='•' 

REM-END- 

8240 

LET LB= 

LB+1 



+A$ 


i) /.» 

f 
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8250 RETURN 
8260 REM 
8270 REM IF 
8280 REM 

8290 00 SUB 1770: 00 SUB 1770 
8300 60 SUB 497© 

8310 IF A$= " THEN LEI Af= "MG CQNDITIQN" :0O TQ 185® 
8320 LEI B$(LB)="IF "+A$+" THEN GOTO" 

833© LET LB=LB+1 

8340 LET B$ (LB+1 ) = "REM — IF—" 

8350 LET B$(LB)="IF NOT "+A$+" THEN GOTO" 

8360 LET LB=LB+2 
837© LET U$="" 

8380 GO SUB 1940 
8390 FDR T=1 TO 4 
8400 00 SUB 1770 
8410 LET U$=U$+A$ 

842© NE^T T 

8430 IF'Uf<>"THEN" THEN LET A$="MISSINO THEN": 

GO TO 1850 
8440 GO S 0 B 1— U’ W 0 
8450 RETURN 
8460 REM 
3470 REM THEN 
8480 REM 

8490 FOR T=1 TO 4 
8500 GO SUB 1770 
8510 NEXT T 

852© LET B$(LB)="REM -THEN-" 

8530 LET LB=LB+1 
8540 RETURN 
3550 REM 
8560 REM ELSE 
8576' REM 

8580 FOR T=ì TQ 4 
8599 00 SUB 177© 

R600 NEXT"? 

8610 LET Bf ( LB) ="REM —ELSE—" 

8620 LET LB=LB+i 
8630 RETURN 
8640 REM 
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REM REPEAT 
REM 


FOR T=1 

TO 6 


GO SUB 

1770 


NEXT T 



LET B$( 

LB)="REM 

—REPEAT—" 

LET LB= 

LB+1 


RETURN 



REM 



REM UNT 

IL 


REM 



LET B $i 

LB)="REM 

—UNTI.— " 

LET LB= 

LB+1 


FOR T=1 

TO 5 


GO SUB 

1770 


NEXT T 



GO SUB 

4970 


IF A$=" 

" t.HEN l 

FT A*= " M T PP ! IMG F X PRF 

GO TO 1 

850 


LET B$( 

LB) = " IF r- 

0T("+ A $ +"> THEN G 0 T n 

GO TO 7 

430 



LET LB=LB+1 

RETURN 

REM 

REM UHILE 
REM 

LET 6$ i LB ) = " REM UH 1 LE -" 

LET LB=LB+1 
FOR 7 =1 TO -i 
GO SUB 1770 
NEXT T 
GO SUB 4970 

IF A %= " " THE INI L E 7 A $ = " M1S SIN G E x P R £ IQ ! •' " : 
GO TO 1850 

LET B$(LB)= ,; IF NOI ( "+A$+" ) THEN GOTO 

GO SUB 1770 

LÉT~Ù$=A$' 

GO SUB 1770 

LET u$=u$+a$ 

I F U $ < > " D 0 T H E N L E T A $ = ■ • M l £ C; T w « ? f; R " ; 

GO TO 1850 
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3020 

LEI LB=lB+1 


3030 

RPTUffN 


3040 

REM 



RF 

■-1 POR 


9060 

REM 


3070 

LE 

T Bf(LB) = 

R E M - POR - 

3080 

LEI LB-LB+1 


3030 

FO 

R T =1 IO 


3100 

-30 

SUB 1770 


311 0 

NE 

V T “T 

A i i 


9120 

30 

SUB 328© 


3130 

T P 

J. i 

A $ = " " !_i R 

P 3—0 QR T ( F L “f” * F L—0 ) ) = 


A$ 

="BAD POR 

VaRIaBLE": 30 TQ 1850 

3140 

LET B$ ( LB) = 

"FQR "+ A$+"=" 

Q 1 c ii?i 

30 

SUB 1770 


3160 

IF 

ASO" : " 

T HEN LET A $=" MIS81N3 


30 

TU 1850 


q -i 7 7; 

QO 

SUB 1770 


3180 

T F 

A$ \ s ,f = **' 

THEN LET A$="M ISSINO 


R T 

3N" : SO T 

0 1850 

q1 Q0 

30 

SUB 4370 


Q£g@ 

IF 

Af= '' TH 

EN LET A$="MISSINO EX 


;in 

Tfi A ocr.p. 



•-* w 

: i'jJv 


9210 

Ln 

T Z?=BS(L 

3 )j Su SUB 9500: LET B 


+AS9" TQ " 


3229 

30 

SUB 1340 


Q Q Q A 

7 l_ ■«' 

i p 

T ! ! -t. = “ '• 


3240 

FU 

R 1=1 Tu 

-, 

9250 

30 

SUB 1770 


9260 

! P" 

T U$=U$+A 

$ 

3270 

!\! P" 

v T 7 



! r " 

T K /* — 


9?90 

T c 

! 1 Tn 9 

) = ’T f ; TL<pj\j | P'T j.yjj./f — p , 

0300 

IF 

US= " DOWN 

Tf!” T H P f\i ì RI 

qp;i s 

! 9. 
i. : 

MM=p thEN - ET as= M 1991 !\;G 10/ 


ro r 

'! n 1 P"-,ì.-ì 


0330 

3L 

bUb 200-i 


qRR# 

Pi" 

p T = -1 Tfi 
r% i — i su 

j. .A M 

3340 

30 

SUB 1 770 


9950 

NE 

17 T 


q C, 0 

30 

Clip /IQ7;:: 
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9370 LEI Z$=B$(LB) : 
"+A$ 

9380 IF A$ = THEN 
•30 T0 1850 


QO SUB 3500: LEI B$(LB/=2$+" 
LEI A? =i 'MISSINO EXPRESSION" : 


3390 

GQ 

SUB 

1770 


3400 

LET 

y$= 

=A$ 


9410 

30 

SUB 

1770 


9420 

LET 

y$= 

: U$-f A$ 


3430 

IF 

u$<: 

>» QO" 7 

H E N LET A $ = MIS SIN 3 D 0" : 


30 

Tf! 

i. W w — 


9440 

IF 

U$= ! 

DOUNTO 

" THEN LET Zf=Bf(LB): 30 


SUE 

951 

J0: LET 

B$(LB/-2$+'- STEP -1" 


3450 LET LB=LB+i 

9460 RETURN 

9470 

9480 

9430 


3500 

REM TAKE T 

RAI LINO SPACES OFF 

9510 

9520 

LET SPC=LE 

N 1$ 

3530 

IF 2$(SPCl 

<>" » THEN GQ TO 

3540 

LET Spr=SP 

l“ — i 

W X 

9550 

IF SPCO0 

THEN 3(1 Tf! 95Pii 

3560 

LET Z$= 

RETURN 

9600 

LET l$=l$[ 

TO SPC) 

9610 

RETURN 


9999 

SAVE " COMP 

I LEE" 
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Questo libro si rivolge a chi desidera conoscere il PASCAL ed apprenderne l'uso 
in modo semplice e lineare: è quindi adatto anche a chi è alle prime armi 
nel campo dell'informatica. 

Nel libro sono riportati i listati di due programmi compilatori per tradurre 
le istruzioni PASCAL in BASIC: questo consente al lettore di provare direttamente 
programmi in PASCAL sul suo personal computer senza dover affrontare la spesa 
di un vero compilatore PASCAL 

Il primo compilatore è scritto in Basic MICROSOFT, quindi è adatto ai personal 
computer IBM PC; IBM compatibili, OLIVETTI M 10 - M 20 - M 21 - M 24, HP 150. 
Il secondo è scritto in Basic SINCLAIR per lo ZX SPECTRUM ed è fornito 

su cassetta software allegata al libro. 



Cod. 9800 


L 25.000 

prezzo comprensivo di cassetta 





